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~ BSC DUP11 Device Driver = 
DRIVER. SRCIXWD DRIVER.MAR; 1 (1), v04- 


MODULE = XWDRIVER 


SE 
“SE 
-SBTTL MODULE = XWDRIVER 

- TITLE yun IYER - BSC DUP11 Device Driver 
IDENT ‘v04-000' 
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COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS SOFTWARE IS FURNISHED ened a. ICENSE AND MAY BE USED AND COPIED 
ONLY IN ACCORDANCE WITH THE TERMS OF SUCH pint AND WITH THE 
INCLUSION OF THE ABOVE Spud ho NOTICE. THIS SOFTWARE OR ANY OTHER 
COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
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THE gh ore pee IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
eoePORaT on NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR 7 panei OF ITS 
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: ; Modified by: 
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v03-003 KDM0002 hleen D. Morse 28-Jun-1982 
it Added S$DCDEF, SDYNBEFS SPRDEF, a SSSDEF. 
0000 v03-002 MMD0002 Meg Dum 4-Jun-1982 11:16 
900 Fix UCB$W_INT to be UCBSM. iNT. 
0000 v03-001 MMD0001 g Dumo 19-May-1982 14:46 
444 Add known fixes ok NIDRIVER to this driver 
0000 
000 : 
44 ; MACRO LIBRARY CALLS 
00 
$00 $xWoEF 
38 SEBCDEF 
0 SCRBDEF sDEFINE CRB OFFSETS 
100 SOCDEF sDEFINE DATA TYPES 
0 SODBDEF sDEFINE DDB OFFSETS 
SOPTDEF sDEFINE DPT OFFSETS 
SOYNDEF sDEFINE DYNAMIC DATA STRUCTURE TYPES 
SIDBDEF sDEFINE IDB OFFSETS 
SIODEF sDEFINE 1/0 FUNCTION CODES 
thi 4 sDEFINE IRP OFFSETS 
p SMSGDEF DEFINE SYSTEM MESSAGE TYPES 
SPCBDEF sDEFINE PCB OFFSETS | 
| 
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; 
; Error recording macro 
e 


-MACRO PROTLO ERRNO 
MOVZBL #ERRNO,-(SP) 
BSBW ERR_RECORD 
-ENDM PROTLO 


REP=1#2 
NAK=2t2 
seve ew ae HP 
BADACK=4#2!1 


DSR_LOST=5#2!1 
GARBLED IR SP=6#2 
= 


2 
FORMAT=11*2 


so nf ae 
aes 

* 

+ 


NO_ERRORS=18 
3 LIST MEB 


3 vet Macro v04-00 Page ¢ 
8 (CDRIVER.SRCIXWORIVER.MAR; 1 (1) 
FINE PROCESSOR REGISTERS 

FINE UCB OFFSETS 

FINE VIRTUAL ADDRESS FIELDS 

FINE VEC OFFSETS 


RST FUNCTION DEPENDENT PARAMETER 
COND FUNCTION DEPENDENT PARAMETER 
IRD FUNCTION DEPENDENT PARAMET 
URTH FUNCTION DEPENDENT PARAMETER 
FTH FUNCTION DEPENDENT PARAMETER 
ZTH FUNCTION DEPENDENT PARAMETER 


Put the error on the stack 
Call the error recorder 


Out of Par ACK after REP 
RECEIVED NAKS 

Fatal nak retr 
Out-of-phase ACK other than as 

a response to a ENQ 
DSR lost durring a buffer 
Unrecognizable response to text 
Conversational response received 
Receive block to long for buffer 
Reply lost (ENQ received) 
Forward abort received (ENQ in text) 
Block format undecipherable 
Disconnect received 
Abnormal EOT ceurr ing xmt text) 
Transmit retry threshold 
Timout durring response 
Timout sending a text block 
Nak transmitted 
Rep (ENQ) sent 


Highest error number+3 rounded up 


:Define Device Dependent Unit Control Block Offsets 


SDEFINI UCB 
-=UCBSL_DPC 


SOEF UCBSL_XO@_SPBF_ .BLKL_1 


SDEF UCBSL-XW"SYCNT .BLKL 1 
SDEF UCBSL_-XW"-ITBPTR .BLKL 1 
SDEF UCBSB-XW"ITBCNT .BLKB 1 


3; Short protocol buffer 

: Sync count (also offline ct) 
: Internal CRC pointer 

3; Internal CRC count 


6 5 
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Ag SDEF UCBSB_XW_TISTA .BLKB 1 ; Interrupt state 
AA SDEF UCBSB_XW_RISTA .BLKB 1 ; Receive interrupt state 
AB SDEF UCBSW_XW"_LSTCSR .BLKW 1 - CSR at end of last transfer 
AD SDEF  UCBSB-XWTERRORS .BLKB NO_ERRORS+2 ; Error talleys + 2 bytes 
F for current err spare 


000000C1 UCBSK_SIZE=. 


SDEFEND UCB 


; Device specific flags definition (for 


UCBSW_DEVSTS) 


Dd 
R 
18 
Hf 
C1 113 
C1 120 
3 : 1 
bo 198 
4 124 
0 : 5 
UCBSV_XW_REP= ; Retry state 
00000000 90 1 § CBs REP=0 R 
00000001 one ! 8 UCBSM_XW_REP=*01 Sees 
00000001 One 130 UCBSV_XW_AK1=1 3 ACK1 next 
00000002 44 : 1 UCBSM_XW_AK1=2 ; ACK1 next 
00000002 0000 1 § UCBSV_XW_NAK=2 ; NAK sent Last flag 
00000004 0000 134 UCBSM_XW_NAK=*04 S wee 
4 136 ; to a long word 
00000008 0000 137 UCBSM_XW_PIPE=*010 ; Cancel pipeline marker 
0000000 44 138 UCBSV_XW_PIPE=3 
; DUP-11 CSR Offset And Bit Definitions 
44 129 11 ff i initi 
0000000 000 146 ey he ; Receiver data buffer 
0000000 000 14 DUP_CSR_PARM= ; Parameter register 
00000004 0000 144 DUP_CSR_TXCSR=4 3; Transmitter command register 
000000 464 145 DUP_CSR_TXDBF=6 ; Transmitter data buffer 
0000000 000 146 DUP_CSR_M_DTR=“02 ; Data terminal ready 
00000004 0000 147 DUP_CSR_M_RTS=*04 3; Request to send 
0000001 000 148 DUP_CSR_M_REN=*020 3; Receiver enable 
000004 000 149 DUP_CSR_M_RIE=*0100 ; Receiver interrupt enable 
000008 000 150 DUP_CSR_M_RDN=*0200 ; Receiver done 
00010 94 151 DUP_CSR_M_SSY=*0400 : Strip SY 
0000020 0 13 DUP_CSR_M_DSR=*01000 ; Data set ready 
000200 000 15 DUP_CSR_M_CTS=*020000 : Clear to send 
0000800 4 154 DUP_CSR_M_BYM=*0100000 ; Byte mode 
0000001 00 155 DUP_CSR_M_SN sonth : Send 
00004 4 136 DUP_CSR_M_TIE=*0100 ; Transmit interrupt enable 
00 15 DUP_CSR_M_TDN=*0200 ; Transmit done 
1 ; 138 DUP_CSR_M_RES=*04 8 ; Reset 
1 1 DUP_CSR_M_SOM=*04 ; Transmit start of message 
000 160 TT ae dt : Transmit end of message 
0 0 161 DUP_CSR_M_CRI=*0100 3; CRC inhibit bit 
0 16 DUP_CSR_M_HDX=*010 ; Half duplex bit 
sth 44 0 16 DUP_CSR_M_ETM=*010000 ; Maintenance clock bit 
0008 09 196 DUP_CSR_M_STM=*04000 3 System (internal) loop mode 
0 196 ; Transmit interrupt state definition 
° 0 9 198 TSTASIOLE= 3 No ingerruet expected 
1 TSTASCTS=1 3; Wait forCT 
; ¢ 170 TSTASSYN=2 : Transmit SYN 
0 0 171 TSTASTEXT=3 3; Transmit text 
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TSTASENDPAD=4 3; Transmit ergct tag pad 
5 TSTASDIAG= ; Diagnostic (no CTS wait) state 
6 TSTASDROPRTS=6 3; Drop RTS state 


: Receive interrupt state definition 


44444 RSTSIDLE=0 3; No interrupts expected 
000001 RSTSBINARY=1 3; Read until byte count runout 
bo ; RSTSFIRST=2 ; Starting state 
0 RSTSNTTX=3 3: Non-transparent text state 
4 RST$STOP1=4 3; Last CRC byte 
5 RST$STOP=5 3; Stop after next byte 
$ RSTSITB=6 ; First byte of internal CRC next 
0 RSTS$SITB1=7 : Second byte of internal CRC next 
44 3 ps teerg gees ; Transparent text state 
00 RSTSDLE= : Control character or stuffed DLE next 
Q000000A RSTSXPRITB=10 3; First byte of internal CRC next 
00000008 RSTSXPRITB1=11 3; Second yte of internal CRC next 
0000000C RSTSDIAG= 3; Diagnostic receive interrupt state 
0000000D RSTSLOOP_TEST=13 3; Diagnostic slave loop state 


[DRIVER PROLOG TABLE 


BEE EF FUN OOSOSOSOSOSOOSOOSOSOOSOOOOOSOOSOSSoOS 
NOOOCOM OCBMMDMDOOOCOCCOOOOCOOOOOOOOOOOOOoO: 


oo SOOO CCOOOOSOOSOSOOSOOSOOSOSOOSOOOOOOOSOOOOOOOOOOOOoOO 
RFF tt tata tat tat fa tatatatatatatatatatatatatatatatatatatatatatatatatatatas 

PIP IM INININININD 8 8 0 | MQOOCQVOOOOOO OO OOOO OOO OWWWOOOOOOONININNINNN™N =< 
DNA AEN @§ OOO NAUE WIN 3 9 OO NAU EWN $$ OS OO NAME WIN O OONAULS WN "OWOONAOUSUN << 


POROPOROPORONORONOPONORONONONONONONONONPONINONPUNININY IY 2 = ees 0 


DPTAB = 3; Define driver prolog table 
END=XW_END,- 3; End of driver 
ADAPTER=UBA,- : Adapter type 
UCBSIZE=UCBSK_SIZE,-  ; UCB size 
NAME=XWORIVER ; Driver name 
DPT_STORE INIT ; Control block init values 
DPT~STORE UCB,- 
UCB$B_ERTMAX,B,8 3 og count 
DPT_STORE UCB,- 3 Fork IPL 
ucB$B_FIPL,B.8 
DPT_STORE UCB UCBSL DEVCHAR,L.- ; Device characteristics bits 
<DEVSM_AVE- ; Device avalable 
'DEVSM_IDV- ; Input device 
'DEVSM_ODV> ; Output device 
, DPT_STORE uc CB$W_DEVBUFSIZ.- ; Device buffer size 
DPT_STORE UCB, UCBS$B_DIPL,B,21 ; Device IPL 
5 DPT_STORE REINIT ; Fields to reinit. at driver roload 
5 DPT_STORE B08 208s POT = ; Device dispatch table 
035 DPT_STORE CRB CRBSL_INTD +4, 3; Receive interrupt entry point 
OA DPT_STORE CR CRBSL_INTDZ+4,~ ; Transmit interrupt entry point 
OSF DPT_STORE CRB, CRBSL_INTD+VECSL_UNITINIT,- 3 Unit initalization 
OSF D,.XW_INIT 
064 DPT_STORE END 
3; Driver Dispatch Table 
DDTAB XW,- ; Driver dispatch table 
XW_STARTIO,=- ; Start 10 entry point 
000 0,- 3; Unexpected interrupt 
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Device Driver 
RIV 
4 ° 
5 ;FDT tables for 
$ XW_FUNCTABLE : 
8 FUNCTAB 
40 
$ 
23 
44 
45 
28 3 
4 FUNCTAB 
48 
49 
50 
2) 
34 
54 
55; 
56 
57 
58 
59 
60 
2) 
8§ 
64 
65 ; 
6 
6 
68 
+4 FUNCTAB 
C 0 


a 


ic 
ER 


OOooocecoco 


oo 


FUNCTAB 


FUNCTAB 
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FUNCTAB 
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<READLBLK ,- 
READPBLK ,= 
WRITELBLK,- 
WRITEPBLK,=- 
SETMODE ,- 

SENSERUDE .@ 


XW _WRITE,- 
<WRITEPBLK=- 
MAS PELOLE® 


XW READ ,= 
<READPBLK= 
READLBLK= 


+E XESSETMODE ,- 
SE TMODE 


+EXESZEROPARM,- 


SENSEMODE 
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; FDOT lable 


agnostic buffer 


: Reg ster po routine 
: Size of err og buffer 


Legal functions 

Read logical block 
Read physical block 
Write logical block 
Write physical block 
Set mode 


Legal functions 
Read logical block 
Read 


ock 
; Write logical block 


Write physical block 


; Set mode 


Write —* 
Write physical block 
Write logical block 


Read precees inp entry 
Read physical block 
Read logical block 


Set mode 
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4 % -SBTTL XWORIVER Write FDT Routines 
f fe 3 XWLWRITE = WRITE FUNCTION PROCESSING 
7 iM 3 THIS ROUTINE IS CALLED FROM THE FUNCTION DECISION FASE DISPATCHER TO PROCESS 
f 4 3; A WRITE LOGICAL OR WRITE PHYSICAL FUNCTION TO A DUP-11. 
8) 23 3; INPUTS: 
of 1; RO = SCRATCH. 
7 ¢ : R1 = SCRATCH. 
7 3 Re = SCRATCH. 
7 4; R5 = ADDRESS OF 1/0 REQUEST PACKET. 
7 $3 R4 = CURRENT PROCESS PCB ADDRESS. 
07 § 3 RS = ASSIGNED DEVICE UCB ADDRESS. 
07 3 R6 = ADDRESS OF CCB. 
07 8; R?7 = 1/0 FUNCTION CODE. 
07 9; R8& = FUNCTION DECISION TABLE DISPATCH ADDRESS. 
07 0; RJ = SCRATCH. 
007 91 ; R10 = SCRATCH. 
007 3 : R11 = SCRATCH. 
Ba5 + 3 AP = ADDRESS OF FIRST FUNCTION DEPENDENT PARAMETER. 
Bae a 3: OUTPUTS: 
007 97 ; THE FUNCTION PARAMETERS ARE CHECKED AND A BUFFER IS ALLOCATED FOR THE 
007 38 : DUP=-11 DRIVER TO BUILD A MESSAGE INTO. 
07 00 ° 
34 01 -ENABL LSB 
07 86 XW_WRITE: 
03 OD EF ot 0 EXTZV #XWSV_IOMOD,#XWSS_IOMOD,- ; Extract the 10 modifier field 
50 20 A3 078 304 IRPSW~FUNC(R3) ,RO 
007E 05 CASE RO,- 3; Dispatch on the modifier 
07E 36 <XMT_BINARY,=- 3; Send until count runout 
7E 0 XMT_PTPBSC,- ; Add point to point BSC control 
O7E 08 AD“MODIFIER,- 
O7E 9 BAD_MODIFIER,- 
007E 10 BAD_MODIFIER,- 
Bate 11 BAD_MODIFIER,- 
7E \¢ AD_MODIFIER,- 
007E 1 XMT_DIAG,- 3 Full duplex diagnostic processing 
7 14 3; Last modifier 
9 15 
3 er was out of range so abort the request 
, : Modi fi f b h 
9 18 BAD_MODIFIER: 
51 0080 8F 6 9 1 MOVZWL #XWSM_ILLMOD,R1 :; Get device dependant status 
Tj a | 9 p JMP G*EXESABORTIO ; Abort the request 
4 § 3; Send the users buffer with no processing 
9D 4 XMT_BINARY: 
50 6C oD 90 5 MOVL P1(AP) RO ; Get the user buffer pointer 
51 O04 AC OD AQ § MOVL P2(AP),R1 ; Get the user Gguat 
_—- @ AS BEQL 1 ; Complete now if zero count 
; Check the user buffer 
00000000 ' GF 16 A6 8 JSB G*EXESWRITECHK Check th buf f 


Ll 5 
XWORIVER - BSC DUP11 Device Driver 16-SEP-1984 00:24:39 VAX/VMS Macro Vv04-00 Pa | 
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cB 73; 
$3 3 ; Format the users List of records into a bisync block 
CB 340 KMT_PTPBSC: 
50 > 9 cB 4 MOVL P1(AP),RO ; Get user buffer pointer 
51 O04 aC OD C 4 MOVL bg LAP? Rt 3; Get user buffer count 
1 D 4 BNEQ 20$ ; BR if not zero count 
50 O000°8F 3¢ D 44 108 MOVZWL #SSS$_NORMAL ,RO ; Get normal completion status 
04 D9 45 CLRL R1 3 No device dependant status 
444 17 oe 6 JMP G*EXESF INISHIOC 3; Complete the I0 request 
OO'GF 16 + r 208: JSB G*EXESWRITECHK 3; Check the user buffer descripter 
OE ‘3 3; Check the buffer chain 
59 50 2} C1 0O0E7 3 7 ADDL3 = R1,R0,R9 3; Point to the end of the user buffer 
D4 O0EB 26 CLRL fa 3; Set zero record count 
59 0 gé ED 5 SUBL2 #2,R9 3; Point before Last count 
6g 8 C OOF 54 30$:  MOVZWL (RO)+,RB : Get the the count 
58 OF FFF BF 8} OF 55 CMPW#-1,R8 : Last count ? 
1 1 OF 2$ BEQL 50$ z yes - branch out 
5 D6 OOFA 5 INCL RE ; Step record count 
FFEE SO 58 5 Fil OOF 38 ACBL R9,R8B,RO, 308 3 if next count is in buffer 
51 0040 8F 6 10 5 MOVZWL #XWSM_BADCHAIN,R1 ; Get bad buffer status 
00000000'G 1 19? 9 40$: JMP G*EXESABORTIO ; Abort the operation 
EO 0100 66 50$: BBS #XWSV_CHA_XPR,=- 3;_Is transparency called for 
03 44 AS 10F 6 UCBSL~ DEVBEPEND(RS) ,XPRTXT 
31 ig rf: abled 3; Go to nontransparent code 
3; Bu a transparent text bloc 
O11 ? Build block 
O13 68 XPRIXT: 
51 O04 aC O cS 0115 9 MULL3 Se haan 3; Get the count 
52 0 C4 OIA 0 MULL2 4#3,R ; Each record needs 7 extra bytes 
51.5 0 11D 71 ADOL R2,R : Get the total size 
010€ 0 01 % BSBW ALLOC_SETUP 3; Get a system buffer 
1 73; R9 -From data pointer 
1 74; R10 -To data pointer 
1 75 3 R11 -Record count 
0138 8F ge 1 6 PUSHR #*M<R3,R4,R5,R8> 
58 20a3 3C 01 7 MOVZWL IRPSW_FUNC(RS) RB ; Save the function 
3 04 128 4 CLRL (SP) : No starting CRC 
SA 208 DO 012D 7 MOVL @IRPSL_SVAPTE(R3) ,R10 ; Set the to pointer 
9 c 0 0131 0 MOVL P1( AP) R9 : Set the from pointer 
C 0134 1 MOVZWL (R9)+,R11 : Get the first record,s count 
8A 10 8F 0 0137 § 10$: MOV #EBCDLE ' <EBCSTX*256>, (R10) + 3; ALL records start with DLE STX 
69 SB 6€ CAC*EF 1 CRC POLY TABLE, (SP) .R11,(R9) ; Get the CRC on the Record 
E 14 4 MOVW RO, (SP) ; Save the CRC until end of record 
69 58 10 A 0148 § 20$:  Loce #EBCDLE.R11,(R9) : Find any DLE in the data 
3 O14 § BEQL 30% ; BR if end of record and no CRC 
1 OD 14 INCL R1 : Include the DLE in the ‘found’ data 
02 F 1 SOBGTR RO,30$ i eee 
D 1 DECL R :; Flag a DLE ended the record 
8 D 1 0 30S: MOVL RO,R11 : Set remaining data count 
50 1 91 SUBL3 R9,R1,R0 ; Get scaned data count 
6A 69 0 15¢ 36 MOVE RO. (RO), (R10) : And move the data 
9 1 #O 16 9 MOVL R1,R9 ; Set new from pointer 
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- 33 8 193 94 MOVL R3,R10 3; Set new to pointer 
A i 1 é 95 MOVB #EGCDLE, (R10)¢ ; Stuff the DLE or end with DLE 
5B OO 16 39 TSTL RB 3 Is this the end of block 
B i 168 9 BGTR 20$ 3; NO -find more DLE,s 
1 16D a8 BEQL 40$ : If eql, was the end of the block 
8A 610) «(90 166 9 MOVB #EBCDLE,(R10)+ : Else block ended with DLE, so stuff 
1 ht 3 an extra DLE in for control character 
58 $9 BO 017 401 40$: MOVW (R9)+,R11 : Get the next record count 
5B OF FFF BF 81 175 «(4 : CMPW =, 11 : Is it the sentenal 
| i 117A 4 BEQL : BR if it is 
6A TF 3 17C 404 MOVB #EBCITB, (R10) 3; Store a record seperator 
a F 17F 405 BSB ; Add the trcord end char. fe cRC 
8A 3232 BF 14 13) & $ MOVW #EBCSYN! <EBCSYN®256>, (R10) + 3; Followed by SYN SYN sin 
6€ 018C'8F C 0186 4 MOVZWL #DLE_STX_CRC, (SP) 3 Assume the next partial CRC 
AA 11 O18B 408 BRB 3 Get another record 
6A 6 90 8158 409 50S: MOVB #EBCETB, (R10) 3; Assume not last block 
03 A €1 b193 219 BBC 4a LASTBLOCK,=- 3; Is it the last block 
6A 03 90 0194 41g MOVB #EBCETX,(R10) ; Set end of last block 
1 10 0197 413 60$: BSB 70$ : Include the block end chsr. in CRC 
5E 4 CO 0199 414 ADOL #4,SP ; Remove the partial CRC 
0138 8F BA Bis 415 POPR #*M<R3,R4,R5,RB> 
SA 2C B83 C2 O1A0 416 SUBL2 @IRP$L.SVAPTE(R3) : Get the block count 
32 AS. oSA 59 ne 417 MOVW R10, IRP$W_BCNT(R3 3 Save the byte count 
00000000'GF 1 i $18 JMP G*EXESQIOBRVPKT ; Post the IRP to the driver 
6A 01 04 AE eh 4 OIAE ? ? 70$: ne POLY TABLE ,4(SP) ,#1, (R10) Bay ae Ag Big Ae in the CRC 
8A 50 680 OIBA 4 ¢ MOVW RO, (R10)+ 3; And store the last byte 
05 thes 2 ; RSB 
O1Be : 2 3; Nontransparent record blocking and CRC generation 
SIRE 427 NXPRTXT: 
52 03 O1BE 428 MULL2 #3,R2 ; Need count space +3 byte for each rec 
52. 04 01C1 $93 ADDL R2 ; Room for STX and Luck 
51 52 04 AC 164 430 ADDW3 P2CAP),R2,R1 : get eventual size 
0065 1¢9 431 BSBW ALLOC_SETUP ; allocate and set up a oyptes buffer 
0078 8F 1CC $36 PUSHR #*M<R3,R4,R5,R6> save the FDT call reg. setup 
5 OA C 0100 43 MOVZWL IRP$W_FUNC(RS) ,R6 : Get the 10 function & mod. 
5 CB DO 0104 434 OVL @IRPS$C_SVAPTE(R3) : Get the system buffer pointer 
83 02 90 108 435 MOVB #EBCSTR, (R3)+ : Start the block with a stx 
5B 26C) «2=D0 «(01DB. CG é MOVL 1(AP) R11 : Get the user buffer pointer 
5 C 106 437 10$: MOVZWL (R11)+, 3 And the first record count 
eee Ae eg Ga TE Seen 
3 s 
59 7D if8 440 MOVQ Rs -08 3; Save the start of rec. ptr. &cnt. 
63 68 28 O1EB 441 MOVC R2,(R11),(R3) 3; Move the record into the sys. buf. 
1EF 726 ; Rl- start of next record, R3- end of this record 
5B 51 DO OIEF 44 MOVL  R1,R11 ; Save a pointer to next record 
59 D6 O1F2 444 INCL Ro ; Include the record end character 
1F4 9445 ; (not yet added) in the count 
63 Ff 90 1F4 “8 MOVB #EBCITB, (R3) 3; Add an ITB to the block 
68 FFFF 8F 81 O1F7? 44 CMP -1, (R11) : Is this to be end of block 
A 3 1FC a8 BNEQ 30$ ; BR- if it is ITB CRC CRC 
63 6 6 (9 ire 44 MOVB #EBCETB, (R3) : Assume intermediate block 
A €1 0201 450 BBC #10$V_LASTBLOCK,- : BR if not Last block 


' 
| 
| 


XWORIVER = BSC DUP11 Device Driver 16-SEP-1984 00:24:39 VAX/VMS Macro v04-00 Page 10 
wt XWORIVER Write FDT Routines eye 90:34:33 DRIVER. SRCIXWORIVER.MAR; 1 (1) | 
03 4 R6,30$ 
3 : 90 4 MOVB #EBCETX, (R3) 3; Add an ETX to the block 
6A 59 00 Oo00SCAC' EF 0B ; 4535 30S: CRC POLY_TABLE,#0,R9,(R10) : Get the cre for the whole record 
1 454 3; after _the CRC instruction r0=CRC 
11. 455 ; _and R3 points after the last byte 
83 r+ Bg 11 $28 MOVW RO, (R3)+ ; Store the CRC in the block 
83 32 8F ; 14 45 MOVW #EBCSYN! <EBCSYN#®256>, (R35+ ; Start each record with syn-syn 
; 1 19 4658 BRB 10$ ; Do next record 
51 53 C3 18 459 40$ SUBL3 #2,R3,R : Point after Last CRC (before syn) 
0078 8F BA O21F 460 POPR #*M<R$,R4,R5,R6> 
1 2c Bs C 3 461 SUBL2 @IRPSL SVAPTE(R3),R1 =; Calculate the count 
Sond 1 8 7 re {| MOVW R1,1RPSW_BCNT(R3) 3 And save it in the IRP 
00000000'GF 1 ° re JMP G*EXESQIODRVPKT 3; Queue the packet to the driver 


XWORIVER = BSC DUP! : Device Driver 16-SE 4: AX/VMS Macro v04-00 Page 11 
ayaa titi XWDRIVER W e FDT Rect ined g-SEE} 7 88:34 +33 DRIVER.S REX XWORIVER.MAR; 1 . (1 
1 3 
1 ie ; Allocate and set up a system buffer utility 
1 489 ALLOC_SETUP: 
53 DD 1 470 PUSHL R3 3; Save the IRP pointer 
ee 30 «471 ADDL #12,R1 : include overhead size 
rn 8 6 or6 JSB Eattheee one 3; Does _ Weer have quota 
8 0 ; ge * BLBC RO,10$ ; BR ifn 
00000000 ' GF . 647 JSB G*EXESALLOCBUF : Get the. butte 
3 8ED 45 475 10$: POPL R3 3 Get back the IRP pointer 
2 a. 2 48 476 BLBC RO,208 7BR if allocation failure 
f A 2 4 48 477 MOVL R2, IRP$L_SVAPTE(R3) iSave _ & new buffer pointer 
A 8 4F = 478 MOVW R1,1RPS$W_BOFF(R3) Sav A? sett'** allocated and charged 
50 0080 cs D0 0253 479 MOVL  PCBSL_JIB(R4),RO : GET *IBTA 
29 AO 1 ge 8 58 rt SUBL R1 J185, YTCNT(RO) ; Charge Banas. for buffer 
2 OC A2 5 Sc 481 MOVAB it ), (R2)+ iSet uP pointer to first byte of buffer 
62 6C 00 026 ret; MOVL P1(AP),(R2) : Set up pointer to start of user buffer 
40 AS 04 AC t' 8 rt ret ot P2(AP),IRP$SW_ABCNT(R3) ; Save the users transfer count 
0269 485 
SE 04 CO 0269 486 208: ADOL #4,SP ; Pop the return off the stack 
00000000'GF 17 O26C 487 JMP G*EXESABORTIO : Abort the operation 


Ow 9392092 


—@w 
er tt bln OoOO—-ouce9 
FF OCOOCO0ODVDONINNNNN ODS 


~ 
DPI BE EPPS SESE OO 


> 2 de WWE TO 2 Ww 
Wa 
a 


evice Driver 

e FDT Routines 

i 

91 

38 XMT_DIAG: 

9 MOVaQ 

94 JSB 

95 mMOva 

38 JSB 

9 ADDL3 

3 JSB 

4 MOVL 
1 MOVZWL 
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0 PUSHR 

04 MOVC 

05 POPR 

06 JMP 
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; Diagnostic full duplex read/write FDT processing 


Check the read buffer 
Check the write buffer 


Get the total buffer count 

Allocate a system buffer 

Set receive buffer addr. for 
10 completion code 

; Set the rec. count 

RO ; Get the transmit pointer 


; Move the transmit data 
; Queue the packet to the driver 
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XWORIVER - BSC DUP11 Device Driver 16-SEP-1984 00:24:39 VAX/VMS Macro v04-00 Page 13 | XwWDI 
yaa Nt xW/DUP ot} Read FDT Routines ety 7 98:34:38 DRIVER. SRCIXWDORIVER.MAR; 1 ° (2) | V04: 
7 8 -SBTTL XW/DUP-11 Read FDT Routines 
AD 310 | XW_READ ~ READ FUNCTION PROCESSING | 
AD \ : THIS ROUTINE IS CALLED FROM THE FUNCTION DECISION TABLE DISPATCHER TO PROCESS 
v4 1? 3; A READ LOGICAL OR READ PHYSICAL FUNCTION TO A DUP11 DEVICE. 
AD 13 : INPUTS: | 
AD 19 : RO = SCRATCH. | 
O2AD 18 ; R1 = SCRATCH. 
Qgad 919 Re = SCRATCH. | 
AD 0; RS = ADDRESS OF I/0 REQUEST PACKET. 
O2AD 1; R4 = CURRENT PROCESS PCB ADDRESS. 
AD ¢ 3 RS = ASSIGNED DEVICE UCB ADDRESS. 
AD : R6 = ADDRESS OF CCB. 
O2AD 524 ; R7? = 1/0 FUNCTION CODE. 
O2AD 2 7 2 R8 = FUNCTION DECISION TABLE DISPATCH ADDRESS. 
pg Ab 6; R9 = SCRATCH. 
O2AD 527; R10 = SCRATCH. 
O2AD 528 ;: R11 = SCRATCH. 
asap ; 3 4 AP = ADDRESS OF FIRST FUNCTION DEPENDENT PARAMETER. 
$8 231 : OUTPUTS: 
O2AD 236 : THE FUNCTION PARAMETERS ARE CHECKED AND A BUFFER IS ALLOCATED FOR THE 
Bs ap 338 : DUP-11 DRIVER TO RECEIVE A MESSAGE INTO. 
O2AD 536 * 
ne 537 XW_READ: , 
03. OD EF AD 538 EXTZV #XWSV_IOMOD,#XWSS_IOMOD,- ; Extract the 10 modifier field 
50 20 A3 0280 539 IRP$W~FUNC(R3) ,RO 
028 540 CASE RO,- ; Dispatch on the modifier 
028 541 <REC_BINARY,- t receive until count runout 
028 246 REC_PTPBSC,- 3; Add point to point BSC control 
028 54 > 3; Last modifier 
FDD4 =‘ 351 8 4 eee BRW BAD_MODIFIER ; Out of range function | 
8 + 338 3 Receive until byte count run out- no Line protocol or data processing | 
O2BE 548 © .ENABL LSB 
8 3 $3 REC_BINARY: | 
> 2) : Receive data and manage point-to-point BSC Line protocol | 
BE 38 REC_PTPBSC: 
50 6C 00 a 4 MOVL P1(AP),RO ; Get the user pointer 
51 AC f C 55 MOVL cena amt ; Get the users count 
-? 3 2$ BNEQ 20$ 3 Complete the request now if zero | 
3 Be C 57 10$: CLRL R1 3; No device dependant status 
50 * BF ¢ c9 28 MOVZWL #SS$_NORMAL,RO 3; Get normal completion status 
‘GF = CE 5 JMP G*EXESF INISHIOC 3; Return the packet 
+ 16 D 60 20$: JSB G*EXESREADCHK 3; Check the user buffer 
ED DA 61 CMPZV «= #XWSV_IOMOD ,#XWSS Jones - ; Is this a binary operation 
00 20 as D 6¢ RPSW-FUNC(R3) ,#I1OSK_SRRUNOUT | 
0 13 tg 6 BEQL 0$ ; BR if it is 
51 42a5 3 E 64 MOVZWL UCBSW_DEVBUFSIZ(R5),R1 ; Get the block size 
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; Room for ITB pointers 
; Get a system buffer and set it up 
; Save the transfer count 


; Post the packet to the driver 
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XWORIVER - BSC DUP11 Device Driver 16-SEP-19 4: AX/VMS Macro v04-00 P 
Yoon 00 Start 10 on the DUP-11 ~$FP 1387 88 $i 3 DRIVER.S REIX XWDORIVER.MAR; 1 — 
4! A -SBTTL Start 10 on the DUP-11 
rf ig i > XW STARTIO = START 1/0 OPERATION ON THE DUP=11 
F7 74 ; THIS ROUTINE IS ENTERED WHEN THE ASSOCIATED UNIT IS IDLE AND A PACKET IS 
rf g2 3 3; AVAILABLE FOR PROCESSING. 
Fe 7 : INPUTS: 
F7 8 ; R3 = ADDRESS OF 1/0 REQUEST PACKET 
4 y 3 3 RS = ADDRESS OF DEVICE UNIT UCB. 
Fe ¢ i : outputs: 
F7 i LOTSATEXT 
F7 5; 
Fh ORS 
O2F7 8 XW_STARTIO: 
8 F7 289 -ENABL LSB 
54 24 a5 00 F7 90 MOVL UCBSL_CRB(RS Get the DUP csr pointer 
54 2C BA «OOOO 2FB 331 MOVL  acRBSC_ INTDeVECSL_ 1DB (R45 .R4 
00 ED OFF 3 CMPZV - #IRP$V~FCODE,- ils t this'@ set function 
20 A3 98 B30, 297 o Re SE THODE’ , IRPSW_ FUNC(R ),- 
4D 12 8309 292 BNEQ 50$ ; BR if not set 
B30) 397 ; Set mode 
42 AS 3A a BO $307 295 . MOVW IRPSL_MEDIA+ FtRe) UCBSN. DEVBUFSIZ(RS) ; Set block size 
44 a5 3CA dO Bare 600 MOVL IRPSL_MEDIA+4(R3) ,UCBSL_DEVDEPEND(RS) : Save shavestartettas 
E1 31 601 BBC #10$V_SHUTDOWN,- 3 Is dorp Line requested 
08 20 A3 13 606 IRP$W_FUNC(R3),10$ 
04 a4 = 0100 ef AB 0316 60 BISW — #DUP_CSR_M_RES,DUP_CSR_TXCSR(R4) ;Reset the DUP 
ek ae 2 + . one BRB 40$ 3 Complete the request 
06 E1 O31E 606 10S: BBC #10$V_STARTUP ; Is enable Line requested 
2— 20 A 0 6 60 IRPSW7FUNC (R35 ,40$ 
64 02 AB 0 608 BISW #0UP_ CSR_ TR, (R4) 3; Assert OTR 
64 0200 8F 8 6 609 20$ BITW #0UP~ CSR- A “DSR, (R4) : Is DSR up ? 
re B 610 BNEQ 40$ ~ ; BR if it is 
S D 611 BBS #10$V_NODSRWAIT,- : Is a non wait diagnostic function here 
1F 20 A3 F 61¢ 1RP SW “FUNC (R3) ,40$ 
0097 30 g el? ity 10$ : Send a Line off message 
8 615 WFIKPCH 30$ 
4 616 308: TIP Geese + (RS) 
DB 64 AS Pt } rts 3 aac auc vces. CANCEL, UCBSW =STS(R5) 02 208 ; é Concet r requested ? 
; Return s 
8288 1 Hy 613 40$: BRW COMP GOOD" 3; Complete ad 
, % 09 ED 3 621 50$: CMPZV) «= #@IRPSV_FCODE ,MIRPS$S_FCODE,- : Is it a sense mode ? 
20 A re : 4R PSW_FUNC(RS) ,#10$~SENSEMODE 
5¢ 13 : 6 & BEQL 0$ ; BR if it is 
¢ g 5 : Send/receive request 
C 626; 


: Sense mode 


www 


S NOV DDLOOOOO OCH LWA DWWOLS SLL LLLLELOOOONE SoM 
ss: 
on 
- 


665 
51 4445 00 666 90$:  MOVL  UCBSL_DEVDEPEND(RS).R1 ; Get the device char. 
1 04 @CA 66 BICL @XWSM_CHA ; Assume no DSR 
64 0200 8F 83 66 BITw  #DUP_CSR_A_DSR, (R4) : Is DSR up ? 
Os 1 BEQL si : BR if not | 
51 04 c8 BISL  #XWSM_CHA_DSR,R1 : Mark DSR active 
03¢3 100$: BRW COMP_GOOD-AB ; Return the IRP with status 


> Send a message to the operator 


0018 00AO CS «(01.—sOOFSs«D i108: ACBB 15,41 ,UCBSL XU. SYCNT(RS),1308 ; Time for a message 
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XWORIVER = BSC DUP11 Device Driver 16-SEP-1984 00:24: AX/VMS Macro v04-00 Page 1 
Fen OO8 Start 10 on the DUP-11 Set 7 9:34:33 DRIVER. SRCIJXWORIVER.MAR; 1 . (3) 
68 AS) 0 A 5 7 BICL #UCBSM_XW_NAK!UCBSM_ XW_REP,UCBSW_DEVSTS(RS) ; Reset status bits 
0080 cS) 360081 C 0 af é 8 sup net cave UCB$B_ERTMAX(R5) ,UCBSB-ERTCNT(R5) ; Init the retry count 
03 64 AS 08 1 67 630 “ “BBC #UCBSV_CANCEL ,UCBSW_STS(R5) ,60$ ; BR if not canceled 
YY 1 6C 631 BRW CANEE UR ; Cancel this IRP 
009A C A 8 of 6 § 60$: MOVW IRPSW_FUNC(R3) ysesy FUNC(RS) ; Save the function code for ELG. 
78 A B D 5 6 MOVL aIRPSC_SVAPT (R ) ,UCBSL_SVAPTE(RS) ; copy buffer desc. to UCB 
7E A ASB 7A 634 MOVW  IRPS$W_BCNT(R3) ,UCBSW_BCRT(RS) : ... 
64 0200 8F 8B 7F 86635 BITW #OUP_CSR_M_DSR, (RA) ; Is the line up 
1 846 «66 § BNEQ 70 ; BR if it is 
E § 6 BBS #10$V_NODSRWAIT,- 3; Is it a diagnostic bypass????77??? 
06 20 A : 8 IRPSW~FUNC(R3) , 70S 
8B 640 ; The Line is not connected (no DSR) abort the request 
0 Hs 641 ; 
6 64g ABORT_NO_DSR: 
51 oe 3 se 64 MOVZWL  #XWSM_NODSR,R1 ; Get no DSR status 
042E a § 3 ote BRwW ABORT_CUR 3; Conplete this IRP with abort status 
03 0D EF 039 646 70$: EXTZV #XWSV_IOMOD,#XWSS_IOMOD,- ; Extract the 10 modifier field 
50 20 A3 0394 647 IRPSW~FUNC(R3) ,R 
08 2A A301 E1 039 oe8 BBC #IRPSO_FUNC, IRP$W_STS(R3) ,80$ ; BR if a write 
039 64 CASE - 3; READ dispatch on the modifier 
039 650 <REC_INI_BINARY,- : Send until count runout 
39 651 REC_INI_PTPBSC,- ; Add point to point BSC control 
039 $36 » : Last modifier 
Bah 653 80S: CASE RO,- 3; WRITE dispatch on the modifier 
O3A 654 <XMT_INI_BINARY,=- : Send until count runout 
O3A 655 XMT_INI_PTPBSC,- ; Add point to point BSC control 
03A $26 ABORT_ o* 
3aa 65 ABORT"CUR.- 
A 658 ABORT_CUR,=- 
Aa 659 ABORT~CUR.- 
A 660 ABORT _CUR,- 
0304 661 XMT_INI_DIAG,- ; Start a diagnostic Q10 
baa O96 > 3; Last modifier 
QOA0 C5 94 LRB ucast iw syYc ; Reset the message counter 
0 05 9A MOVZBL #MSGS"DEVOFFLIN,RO ; Get a device off Line message 
18 120$: PUSHR #*M<R3,R4> 
54 § 3 MOVL RO,R4 3; Set up the message no. 
53 e's i E MOVAB 6G*SYS$GL_OPRMBX,R3 3; Get the operators box no. 
0000000'GF 16 t 
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JSB SOE XESSNDEVASG ; And send 
18 BA #°A<RS ,R4> 
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DRIVER.SRC Xu RIVER.MAR; 1 
: -DOSABL LSB . 
;Receive until byte count runout with no protocol or processing set up code 
p REC_INI BINARY: 


9 Ic #UCBSM_XW_PIPE ete DEVSTS(RS - ; Reset any abort pipeline mark 
3 MOVB #@RSTSBINARY,UCB “RISTACRS) 550 ssneecrust processor state 
9 BBC #losy SLAVL OOP, TRPSW FUNC (RS) «1 Is this a diagnostic loop 
94 MOVB #RSTSCOOP_TEST /UCBSB~ XW_ RISTACR ; Set loop state 
95 108: SBW RCV_START™ ; Start the receiver 
36 REC_BIN_WAIT: 
92 WFIKPCH REC_BIN_TMO,#2 ; Wait for the roseree to complete 
38 IOF ORK 3; Create a fork pro 
$2 SUBL3 @IRPSL_SVAPTE(R3),- 3; Get the actual cranster size 
0 UCBSL SVAPTE (RS) RO 
701 MOVW + IRPS$w T(R35 3 and set it for the iocompletion code 
702 BRw COnP. GOB ; Return the packet to the user 
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-ENABL LSB 
REC_INI_PTPBSC: 
BBC #uCBSV XW_PIPE = 
UCBSW_BEVSTS(R5) ,5$ 
PIPE_MARK: 
MOVZWL #XWSM_PIPE_MARK,R1 
BRW RT~CUR 
5$ MOVZWL UCBS$W~BCNT(RS).RO 
SUBW t4, 
ADDL3 UCBSL_SVAPTE(RS) ,RO,R 
MOVL  R1,UCBSL_XwW_ITBPTR(A 
nove #7 .UCBSB_XW_ITBCNT (R 
MOV RO CB$W_BCNT(RS) 
INCL UCBSL_SVAPTE(RS) 
CLRQ = (R1)4 
CLRQ = (R1)+ 
CLRQ = (R1)+ 
CLRQ = (R1)4 
MOVB  #RSTSFIRST,UCBSB_XW_RIST 
BSBW =a RCV_START 
REC_TEXT WAIT: 
QFIKPCH REC_TEXT_TMO,#4 
10F ORK 
ROVL @IRPSL_SVAPTE(R3),R1 
SUBL3 R1,UCBSL_SVAPTE(RS) ,RO 
TST CB$W_BCAT(RS) 
GTR 0$ 
PROTLO REC_BKTOLONG 
RW SND~REC_REQ 
10$: DECL RO 
MOVE (R1)+,R2 
CMPB SEBCENG,R2 
NEQ $ 
PROTLO REC_REP 
SBW = SEND_RESP 
WFIKPCH REC_REP_TMO,#4 
1OF ORK 
BRW SND_REC_REQ 
20 CMPB SEBCEOT .R2 
BNEQ 30% 
MOVZWL @#XWSM_EOT,R1 
BRW ABORT ~CUR 
308 CMPB ss MEBCSTX,R2 
BNEQ 
CRP #EBCENQ,-1(R1) (RO) 
CMPB SEBCETX,~3(R1) (RO) 
BEaL 5 
CMPB «ss WEBCETB,-3(R1)(RO) 
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; Redice the buff. count by one 
; Get the first char. of the 
; Is the last response requested 


9030: 38 AX/VMS Bocce Yor 00 Page 


DRIVER. SRCIXWORIVER.MAR; 1 


; is the cancel pipe active 


; Get the pipe mark error 

; And abort the current IRP 

; Get the rec buffer size 

; Remove the CRC pointers from count 
; Point to the first CRC pointer 


Set up the ITB pointer pointer 


; Init. the ITB count 

; Save a byte for a count 

; Set the receive buffer count 
; Save the count byte 

; Init. the ITB pointer area 


a5) ; Set the starting int. state 
Start the device 


; Wait for the buffer to complete 
; Create a fork process 


the start of the buffer 


Get 
; Skip the hidden byte 
; Get the no. bytes received 
$ pie she byte count run out 


not 


; Reassign the buffer 


block 
not 


; Set up the last response 


3; Create a fork process 
; Reassign the buffer 


; Is it an EOT 

; BR if not 

; Get an EOT status 

; Abort the packet 

; Is {5 a STX 

: if not 

; Is it a TTD or abort 
; BR if 
; Is the 
: if 


not 
" a CRC char. ? 


it is 


50 at ; 
60 2002 “ 
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52 1000 8F 
FD A140) = 03 
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52 00002 
CAS 52 
038F 
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SEND_RESP: 


16-SEP-19 
§-8 SEP- =13§ 
BEQL © 508 
; TTD or Forward Abort 
MOVZBL #EBCNAK R1 
BSBW START_PROI 
ve jcecn NEC -PABO TMO, a4 
ROVL @IRPSL_SVAPTE(R3) ,RO 
CMP #EBCSTX:! ! <EBCENQ*256>, (Ros 
EQL 6-4 OS 
PROTLO REC_FORABORT 
RW REQ 
CLRL IRPSL_MEDIA+4(R3) 
CMPB #EBCETX, ~ (R1) CROJ 
NEQ $ 
MOVZWL #XWSM_ETX 
IRPSL “FO TAS CRS) 
BRW BLK_CRECK 
MOVW = = 1 (R11) ,R2 
INCL RI 
DECL RO 
CMPW pentane 
BNEQ 
PROTLO REC_DISCON 
MOVZWL axush -DISCON, R1 
BRW ABORTCUR 
CHP SEBCDLE! <EBCSTX#256>,R2 
PROTLO REC_TXTFORMAT 
RW SND-REC_REQ 
MOVZWL #XWSM_XPR._R 
CMPB #EBCETX, PR ge Fy cROD 
BNEQ 100$ 
BISL #XxwSm il END,R 
MOVL Re inp : PREDIASG(RS) 
.DSABL 
; Set up response u gins 
BBC 
UcBsu BE oe WetRS). 10$ 
MOVZBL NRK 
BRW XAT TART =r 
BBC #uc 
Ucesu Vpevsts 208 
mOVZUL ou DevSTS (ha), 6>,R1 
MOVZWL #EBCDLE | <EBCAK1#256>, Ri 
BRW XMT_START_PRO2 
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; BR if it is 


Get a NAK 
And send it 


; Create a fork process 
; get the old buffer pointer 


wm 0 : ost received byte 
: Yes- only’ yy aborts 


Reassign the buffer 

Start with o etetus 

Is it an ETX block 

BR if no 

Set the completion status 


Go do the CRC check 


Get the first two bytes from the buff. 
step the buffer pointer 


count 
Is it a disconnect 
Br in not 


Get a disconnect status 
Return the packet to the user 


Is it xpr text 
BR if it is 


Reassign the buffer 
Get srepeserent status 
a: Be th : last block 
r 
Save the: status for the completion 


Check transparent text block 


; Is a NAK called for 


; Get a NAK message 
; Start the device and return to caller 
; BR if an AK1 is needed 


Get an a 
And sone t 

Get an A 

Start Me, device 
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74 18; 
oe i§ ; Timout during protocol response processing 
74 ? -ENABL LSB 
74 5 REC_BIN_TMO: 
ge 10 74 BSB 10$ ; Call common timout processing 
FE8D 31 78 : nec Text’ Tho REC_BIN_WAIT ; Cont. waiting 
09 «10 2f § = 6s8 10$ ; Join common timout processing 
FEDF 31 78 REC_TEXT_WAIT : Continue waiting 
57E : REC_REP_TMO: 
37 REC-SNAR_TMO: 
57 0 RECFABO-TMO: 
FDE6 = 31 af 1 Rw SND_REC_REQ ; Try again 
5 § REC_GACK_TMO: 
049c =O «331 ; ? 6Rw REC_DONE ; Complete it 
08 64 A5 03 €1 0584 5 10$: BBC #UCBSV_ CANCEL ,UCBSW_STS(R5),20$ ; Is a cancel requested ? 
19 589 § BSB TMO_RESET ; Reset the device 
BER 5 POPL RO 3; Remove the return 
0225 1 8 : 3 BRW CANCEL_CUR ; Cancel this IRP 
64 0200 8F 83 $31 40 20$: BITW #O0UP_CSR_M_DSR, (R4) : Is the Line connected ? 
3 \s B208 41 BNEQ 30$ ; BR if it is 
1 1 59 4 BSB TMO_RESET 3; Reset the device 
59A 4 PROTLO DSR_LOST 
20 a + 209 44 POPL R ; Remove the return 
FDE 1 Benz a BRW ABORT_NO_DSR ; Abort this IRP 
50 8E€ 00 ey 43 30$ MOVL (SP)+,RO0 ; Get the return 
SA “4 DSBINT 3; Disable interrupts 
7E 50 00 OSAF 4 MOVL RO,-(SP) 3; Put the return back 
05 058 50 RSB 
328 51 
58 26 TMO_RESET: 
OOAB CS) «664 «©6880 «=—(05B 5 MOVW (R4) ,UCBSW_XW_LSTCSR(RS) ; Save the modem Lines at end of trans. 
64 02 B60 0588 54 MOVW #DUP_CSR_M-DTR, (R4) ; Turn off the receiver 
04 a6 B4 0588 855 CLRW dUP_CSR_TXESR(R4) : Turn off the transmiter 
58 2$ SETIPL UCase FIPL(RS) :; Drop to for 
OOAA CS 00 90 B3e 5 vB #RSTSTDLE,UCBSB_XW_RISTA(RS) ; Set receiver to idle 
00a9 ¢5 «00 s«90s«éOSC 58 MOVB #TSTASIDLE,UCBSB_xX@_TISTA(RS) ; Set transmiter to idle 
05 OSCC 59 RSB 
O5CD 60 -DSABL LSB 


| 
- eee eee eee 
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8¢ : Send as binary adding only SYN and trailing PAD characters 


85 KMT _INI_BINARY: 
“BISW | #UCBSM_XW_AK1,UCBSW_DEVS 
Bi cw #uCB BSM-XW~PIPE,UCBSO_DEV 
MOVZBL 4 Yeast DEVDEPEND+3(R5) ,R1 
WF IKPCH 
1OFORK 

P_GOOD 
BSBW  =TMO_RESET 
MOVZWL #XWSM_TRABINTMO,R1 
BRW ABORT~CUR 


SN NSN NN NO AAAS 
AUF" OOONOUS 
= 
oO 
wr 


ST 
STS 


S(R 
TS¢ 


7 up the transmitter 


ae. .. es time to wait in a long word 
a 


or interrupt or timeout 


; Create a fork proce 


ss 
; Complete the me rey with good status 


; Turn off the 


ce 
; Get a timout sending binary error 


; And abort the request 


)) 


eS 


a 


0 
03 68 A 
fe 
0286 
O2CcF 


51 gore 5 


51 70 8F 


6 UF 


Q0E4 
5161 ; 


— 


M20 20K 


—wowm 
>-—— 


Ww 
-o>yp— 
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ha 2 ROS St ee 


Device Driver i ot at 9 
the DUP-11 -SEP-1984 
4 3 
79 ; Send as point-to-point BSC 
? -ENABL LSB 
: XMT_INI_PTPBSC: 
BBC #UCBSV_XW_PIPE,- 
4 UCBSW_BEVSTS(RS) ,5$ 
5 PIPE MARK 
§ 5$: BSBW XMT START 
XMT_TEXT_WAIT: WFIRPCH 150$,#4 
§ TOF ORK 
GET_RESPONSE : 
0 BSBW  RCV_START_PRO 
91 WEIKPCH 1608,44 
3 1OF ORK 
9 MOVL  UCBSL_XW_SPBF(RS5),R1 
94 CMPB  =s_s« MEBCOCE,,R1 
95 BEQL $$ 
36 BRW 09s 
97 6$: ASHL #-8,R1,R1 
898 CMPB Ss @EBCEOT,R1 
99 BNEQ 1 
900 MOVZWL #XW$M_DISCON,R1 
901 BRW BORT™ CUR 
902 10$ CMPB  =s-s« MEBCRVI,R1 
90 BNEQ 2 
904 MOVZWL #XWSM_RVI,R1 
905 BRW COMP_GOOD_AB 
906 20$ CMPB #EBCOACK,R1 
BNEQ 50S 
DSBINT 
WEIKPCH 30$,#2 
30S: ETIPL UCB$B_FIPL(RS) : D 
BBC #UCBS$U_CANCEL ,UCB$W_STS(R5) 
RW CANCEL”CUR > R 
40$ MOVZBL #EBCEND,R1 
SBW ss XMT_START_PRO1 


ot et I IOO 


FAN OODNOUNE WN OOODNOAUE WN OOM 


yt teh yt tty yt tte te te ee er oo 
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oo 


BRB XMT-TEXT_QAIT 


S0s: BBC 
CMPB ss #EBCAKT,RT 
BNEQ 
BRW COMP_GOOD_TGL 
52$ CMPB  =s- #EBCAKO,RT 
BEQL $ 
BRW 0$ 
60$ CMPB  =s- #EBCAKO,R1 
BNEQ 
BRW COMP_GOOD_TGL 
62$ CMPB Os MEBCAK1,RT 
BEQL 
BRW 170$ 


: Out of phase ACK 


09:31:38 
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Is the cancel pipe active 


Start up the transmitter 
; Wait for interrupt or timeout 
Create a fork process 


Start a protocol response receive 
Wait for a response 

Create a fork process 

Get the response in R1 

Is it a DLE response 


BR if D 

BR if not DLE 

Set up the next byte 
Is it a disconnect 

BR if not 

Get disconnect status 
Complete the IRP 

Was it an RVI 

BR if not 

Get RVI status 
Complete the IRP 

Is it a WACK 

BR if not WACK . 
Lock out interrupts for the wait 
Wait for 2 ds 

rep IPL to fork 

-40$ ; BR if no user cancel 
eturn the packet to the user 
Get an ENQ 

And send it 

Wait for a response 


#UCBSV_XW_AK1,UCBSW_DEVSTS(R5) ,.60$ ; Which ACK is needed 
; it an ACK 1 


Is 


if not 
Complete the IRP and toggle ACKs 
Is it the other ACK 

BR if it is 


‘NO- cone teer i garbled 


Is it an AC 

BR if not 

yongiete the IRP and toggle the ACKs 
Is it the other ACK 

BR if it is 

No- consider it garbled 


an 
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YOenOON start ge pout eepeiie” ety 7 98:34:38 LORIVER. SREIRWDRIVER.MAR; 1 
: C #UCBSV_XW_REP,- 3; Are we in a rep state 
09 68 8 ™ eng : é is ace UCBSH DEVSTS(RS) ,908 
008 1 oar 9 3 BRW FBOs ; Retry without rep state 
0081 3 30 6B2 4 90$ MOVB UCBSB_ERTMAX(R5),- ; Reset the retry counter 
0080 C re 40 UCBSB_ERTCNT(R5S) 
68 941 PROTLO REP ; Record a retry 
FCAS 1 OQ6BF 348 BRW SND_REC_REQ ; Resend the last block 
yn. 6 hCU 31 6C 943 100$ CMPB 1 gual : Is it a NAK 
1F 12 ecs 944 BNE 120$ ; BR if not 
06C 945 PROTLO NAK : Gener a nak sent 
68 AS 01 AA QO6CD 94 BICW #UCBSM_XW_REP yCBSU_DEVSTS(R ) ; Reset possiable rep state 
0080 C¢ 97 ay 303 DECB UCB$B_ERTCNT (RS) ; Dec. the retry count 
§3 15 0605 948 BLEQ Ait Fy ; Retry if threshold not exceeded 
FC8D 3 0607 9-949 BRW SND_REC_REQ 3; Try again 
51 02 C BODA 329 110$: BOVEWL SXUSA _DATACK RY : Get retry threshold exceeded status 
00D9 = 31 O6ES 95 BRW ABORT_CUR 3; And abort the request and queue 
51 37 91 06E6 338 120$:  CMPB #gpceor .R1 : Is it an EOT 
— Sees 954 EQ 130$ ; BR if not 
O6EB 955 PROTLO ABEOT 
51 01 C O6F1 95 MOVZWL #XWSM_EOT,R1 ; Get EOT status 
00c8 3 O6F4 3a9 BRwW ABORT- CUR 3; Abort the IRP and queue 
51 02 91 O6F7 958 130$: CMPB #EBCSTX,R1 ; Is it a conversational response 
OE 12 O6FA 959 NEQ 140$ ; Consider it a garbled response 
O6FC 960 PROTLO CON_RESP 
51 0800 8F 3C 0706 961 eg OXVER_CONACK -R1 ; Get conversational response status 
0085 31 $F07 368 ” age “COMP GOOD AB ; Complete the request with status 
070A 964 140$: PROTLO GARBCED_RESP 
14 #11 orig $e? BRB 170$ ; Go to garbled response processing 
nae 44 : Response timout processing- send an ENQ to see what happened 
FE9E 30 Mae 434 150$:  B8SBW TMO_RESET ; Reset the transmitter 
071 970 PROTLO TMO_XMT_TXTBLK 
FE9S 30 0718 971 160$: ®BSBW T ; Reset the device and go to fork 
03 64 AS 03 1 $1 97 BBC #UCBSV_CANCEL .UCBSW_STS(R5),170$ ;If user cancel get out now 
0090 + 7 3 358 BRW CANCEL CUR : Gancet the IRP 
00. =«=—E2 078 974 170$: ®6BSS #UCBSV"XW_REP,- 3; Is this a new rep state 
07 68 AS 7 3 975 UCBSW_DEVSTS(R5) ,180$ 
0081 cS 90 0728 3/8 MOVB rer te se by ioe ; Reset the retry count 
$080 £2 97 7 378 1808: pece SBSB_ERTCNT (RS) : Retr error ? 
51 i 7 44 prod tg Creer SATA At : Get a threshold exceeded 
007B- sSCéCM31 rit 3 BRw ABORT _CUR ; Complete the request 
51 9A 0744 9 5 190$:  MOVZBL #EBCERQ,R1 ; Get retry protocol 
747 0 =—- 984 PROTLO P_SEN 
40200 8S BE GRATE uC n.osnacmey gs Oat 
4 PROTLO DSR_LOST 3 
bic 34 75, ; 3 195$ Be Bu 1 ee : tlh ye a@ protocol transmission 
oe , 50 990 *  WEIKPCH 2008,43 ~ : And wait for it to complete 
76A = 991 IOF ORK ; Create a fork process 


¢ 7 
- BSC DUP11 Device Driver 16-SEP-1984 00:24:39 VAX/VMS Macro v04-00 P 5 
Start 10 on the DUP=11 green 8Be RorStiam LONIVER.cacdeubetves.mar:1 '29° 23, 
FEAO 831 ae 336 BRw GET_RESPONSE 3 role Souane Foneeses processing ~ 
3 re a 
FE3D 30 0773 994 2008: BSBW —_‘TMO_RESET S Stop the device 
0776 995 PROTLO SENTRES. TIMOUT 
FEM, «3177996 BRW GET “RESPONSE : Try again 
O77F 997 “DSABL LSB 
O77F 998 


] 


wethst 
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77F 1 9 : 
or ! ; Complete the request succesfully | 
77F 1 : -ENABL LSB 
77F 1004 COMP_GOOD_TGL: | 
32 A300 s 40 a3 a4 } 5 Bove iiree wows wey /IRP$W_BCNT(R3) ; Set the origional user size 
04 68 AS 7 : 1 88 UCB$W_BEVSTS(RS) gel the ack switch 
68 AS 02 «CA , 9 08 BICL  #UCBSR_XW_AK1 Ocbsu pevstscr 
78D 1010 COMP_GOOD 
51 DS 0780 1011 CLR R1 3; No device dependant status 
78F 1 \¢ COMP_GOOD_AB 
50 32 a3 60 78F 101 MOV IRP$W_BCNT(R3),RO : Set the transfer size in status 
50 38 14 1014 ASHL ; Move it to the high byt 
50 00'8F B80 0797 1015 MOVW #SS$_NORMAL,RO : Get success code 
1443 Sig COMPLETE: 
40 Ad B44 079C 1017 208: CLRW jorey ABCNT(R3) ean up ees field 
OC 2A a3 07 1 O79F 1018 BBC RP$V_DIAGBUF , IRPSW_ sTsiR i¢ 25$ ; Is a diagnostic buffer here 
D O7A4 1019 MOva 4 =(SP) : Save the completion status 
00000000'GF 16 O7A7 1020 JSB G*focSoTAGBUF ILL : Fill the diagnostic buffer if any 
50 8€ 7D OQ7AD 1021 MOva (SP)+,RO ; Get the status back 
0780 10 § 25$: REQCOM : Complete the request 
0786 10 
07B6 1024 CANCEL_CUR: 
51 Be 0786 1025 CLRL R1 3; No device dependant status 
50  0000°8F C 0788 1026 MOVZWL #SS$_CANCEL,RO 3; Get cancel status 
09 0780 1027 BRB 30$ ; And complete the request 
O7BF 1028 
07BF 1029 ABORT_CUR: 
68 AS 08 As gree 1030 BIS #UCBSM_ XW rat. UCBSW_ DEVSTS(R5) 3 set pipeline marker 
50 0000'8F 3C O7C3 1031 MOVZWL #SS$_ABORT,R Get aborted status (device dependant 
or Ce 1938 30s : siete is already set 
32 AS) BS Orce 1034 BAD_COMP: CLRW IRP$W_BCNT(R3) ; Zero byte count 
CF 11 O7CB 1035 BRB 20$ $ Complete the request 
07CD 1036 -DSABL LSB 


a 7 y 
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| 
| 
7c 1038 | 
as ! ij ; Start a full duplex diagnostic read/write 
7CD 1041 KMT_INI_DIAG: | 
; 32 A 3 70D 1 tg MOVZWL IRPSW tg hit? RO ; Get the receive count 
aS 50 CO 07D1 104 ADDL2 RO ye L SVAPTE(RS) : Point to transmit buffer 
A 40 A B 705 1044 MOVW IRP W_ABCNT(R3) yySeu_ Sint th2) ; Set xmt. buffer count 
090 cS. 50 BO O7DA 1045 MOVW RO,UCB$B SLAVE(RS) : Set receive count | 
3¢ B3 DO O7DF 1 46 MOVL  @IRPSL_SUAPTE(R3) ,- : Set receive buffer pointer 
009C C 7E 104 UCBSL_Rw SPBF (RS) 
7E5 1048 ; UCBSL_SVAPTE = transmit buffer pointer 
7E5 1049 ; UCBSW_BCNT = trensals buffer count 
7E5 1050 ; UCBSL_XW_SPBF = receive buffer pointer 
7E5 1051 ; UCBSBISLAVE = receive buffer count 
OOA9 CS) «(01s 90s«*OO7ES 1 26 MOVB #TSTASCTS,,UCBSB_XW_TISTA(RS) ;set transmit int. state 
OOAA CS OC 90 O7EA 105 Ove #RSTSDIAG, UCB$SB XW _RISTA(RS) ; Set receive state 
OOAO CS) «6060 9A «C(O7EF «61054 vz #4,UCBSL_XW_SYCAT(RS)  ; Set the sync count 
7F& 1055 DSBINT : Disable interrupts | 
50 46 AS 9A O7FA 1936 prod UCBSL_DEVDEPEND+2(R5),RO ; Get the sync character 
8200 8F Al O7FE 105 ADDW DUP_CSR_M_BYM!DUP_CSR_M_CRI,- ; Set up the param. csr 
02 a4 «550 802 1058 RO,DOP_CSR_PARM(R4) | 
64 10 AA 080 H+ 59 4 BICW = #DUP_CSR_MREN, (R4) : Force a resyne 
64 0154 8F AB 0808 1060 BISW #DUP_CSR_M SSY!DUP_CSR_M_REN!=- ; Set RTS,REN,SSY.RIE 
0800 1061 puP_Csk_A_RIE'buP_CSR_A_RTS, (ROS | 
0050 8F As O80D 1 6¢ BISW #DUP_CSR_M_TIE!DUP_CSR_A_SND,- ; Set TIE and SEND 
04 Ad 0811 106 DUP _CSR_TXESR(R4) | 
O1FF 8F 860 13 1064 MOVW #0U R_M_SOM!PAD,- 3; Set start of message and a PAD 
06 A4 081 1065 puP_Csr_TxBer (r4) 
09 #«#=€1 0819 1996 BBC #108V JARINTL OOP = : Is it a internal loop 
06 20 a3 0818 106 IRPSWFUNC(R3) 2S 
0800 8F AB 081 1908 BISW #ouP_CSR_M_STM,- 3; Set the system test mode bit | 
04 AS 822 1 $9 puP_CSR_TXCSR(R4) 
E1 0824 1070 2$ BBC #10$v_NOCTSWAIT,- ; Is the no CTS wait state requested 
05 20 A : 6 1071 IRPSW_FUNC(R3) 
00a9 (5:05 s(«90 9 1 ds MOVB #TSTASDIAG,UCB$B_XW_TISTA(RS) ; Set the no CTS wait state 
0 E1 08 1075 5$ BBC #10$V_INTCLOCK,=- ; Is this a internal clock test 
06 38 A 1074 IRP$SW_FUNC(R3),10$ 
04 a4 61000 BF Os AB 1075 BISw #DUP SSR_W_ETM,DUP_CSR_TXCSR(R4) : Yes turn it on 
p ? ' 6 10$: oe 3087 ; Wait for request to finish 
re 1 A 15$: WFIKPCH 40$.#2 3; Wait for receiver to finish 
33 107 IOF ORK 3; Go to fork level 
FFF cr F 59 1080 PUSHAL COMPLETE ; Set up a normal cpmpletion 
50 80 "SF H' 50 1081 pelt #SS$_ NORMAL RQ ; Get normal status 
C5 1 ¢ 208: UBW CB$B_SLAVE(R5),- : Get the receive size 
1 32 A3 1 IRPSW~BCNT(R3) RI 
2a3 51 8 69 1084 Vw R1, IRP$W_BCNT(R3) 3; Fake transfer size 
51 51S D 1085 ASHL #16.R1,RT : Put it in the high byte 
7e AS OA tied 6 SUBW3 UCBS$W_BCNT(RS) ,- : Get the transmit count 
51 40 A 7% 1 IRPSW"ABCNT (RSS RI | 
2aa3 02 A 77 1 4 BISW #IRPSA_FUNC, IRP$W_STS(R3) ; Set read for completion code 
0 A : 50 RSB ; Join the common completion code | 
15 64 A5 O03 €0 4s ! 91 308 es at #UCBSV_CANCEL ,UCBSW_STS(R5),50$ ; Is a cancel requested | 
11 Mi 109 BRB 0$ ; NO keep waiting 
08 64 AS 83 £0 9 1094 40S: BBS #UCBSV_CANCEL ,UCBSW_STS(RS) ,50$ :; Is a cancel requested | 
| 
| 
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1095 DSBINT 
B3 sil : 38 BRB 15$ 
FDIA 3 1 38 50$ BSBW TMO_RESET 
50 0000'8F C 109 MOVZWL #SSS$_CANCEL,RO 3; Get cancel status 
FF26 CF OOF 1100 PUSHAL BAD D_ComP : and complete the. request 
a 5 1101 BRB os~ : In the common code 
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YOen O00 Start 10 on the DUP-11 $7365 71984 88: $4 33 DRIVER. SRCIXWORIVER.MAR; 1 ° (2) 
AG 3 : | 
- Qi ; Transmit startup utility 
AG KMT_START_PRO1: 
vi .ENABL LSB 
7E AS 4H 99 MOVW #1 ,UCBSW_BCNT(RS) ; Set the transfer count at one 
A BRB o$ ; Now load the buffer with the message 
AA XMT_START_PRO2: 
7E a 9¢ ) AA mOvw . -UCBSW_BCNT (RS) 3 Set the transfer count at two 
009C fo i) A 10$: MOVL UCBSL_XW_SPBF (RS) 3 Load the buffer with the protocol mes. 
76 Ae CS” sé MOVAL ucés $L_XW" SPBF (RS) ,- ; Set the protocol buffer pointer 
unt stant mati “SVAPTE(RS) 
Dag 9 ce 4 90 * ] #TSTASCTS,,UCBSB_ XW TISTACRS) 3 Set the starting state to CTS 
8 9A MOVZBL #8,UCBSL_XwW_SYCRT(RS5) ; get the sync count 
$8 ny A C BISW #DUP_CSR_M_RTS, (R4) : Set request to send 
D C MOVL (SP)#,RO™ : Save the return 
DSBINT ; pisebie interrupts 
43 re b0 MOVL RO,-(SP ; Put the return back 
8 +! of B0 MOVW mDGP Esha, LAT pate CSR_M_BYM,- 
ooss BF AB BISW iS ARTI CSR_M_HDX!DUP_CSR_M_SND,- ; Turn on interrupt 


04 A4 
06 AS «O(OIFF BF sO CSR_M_SOM! PAD ,DUP_CSR TXDBF (R4) :; Set SOM and PAD 


mov 
Is the Peon’ aa SEND order ifportant 
hee from subroutine 
-DSABL LSB 
sReceive startup utility 


RCV_START_PRO: 
Ove 


AA CS Oe 90 +) agg ng UCBSB_XW_RISTA(RS) ; Sst. starting receive state 
78 AS. 009C CSOD: MOVAL UcBst L_XW_SPBF (RS), UCBSL ~SVAPTE(R5) Set the protocol buffer 
7E AS) =602~=«O«#B0 ee ear” UCBSW"BCNT (RS) “; Set the protocol response 
50 46A5 QA ‘ a UCBSL DEVDEPEND*+2(R5) ,RO Set the SYN character in RO 
8200 8F AT ADDW3 #dUP_CSR_M -BYM: DUP_CSR "MERI. ; Set SYN char. and no crc 
02 A4 50 Ft pOP cSR-P CRGS 
64 10 AA BICW csr A “REN. (Ra) 3: Force a resync 
50 8— 00 (Sho TCR 3; Save the return 


WIFNM CL LOY VIVIVNIUIUIS EMO OOn OF WM OONUEN 
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+5 
C 
8D 
8D 
8D 
8D 
8D 
8E 
8E 
8E 
8E 
8E 
8E 
8E 
8E 
8E 
= 

F 
8F 
8F 
8F 
8F 
90 
90 
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MOVL 
DSBINT : Disable interrupts 
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7 0 1145 MOVL 3 return back 
66 6150 &F AB O30e 1146 BI SW _M_SSY!DUP_CSR_M'RENIDUP'CSRM RIG (RG) ; Start the rev. 
0 114 hy: ] 5 Return to caller 
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-SBTTL Block Checking 
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Remove all control characters, check all CRCs, and compact the data into 
the same buffer. 


input 
¢ RO=- count from R1 to end of buffer 
Ri= pointer to byte after STX 


output 
RO, Ri- destroyed 
control is passed to either the NAK or ACK routine after checking 


Register conventions 
R6-ITB pointer 
R7-count pointer 
R8-I1TB count 
R9- pointer to beginning of raw data 
R10-count to CRC 


Be Se Ge Ge Ge Ge Se Ge Ge Ge Ge Se Ge Ge Ge Se Se Se Se Ge Ge Sete 


a a a 4 


te Tob Te Nm) ~]> et deal Tl Po rr rr tt tt ot et ot ot et ot et et et et et ot et tet oe 


; DLE, STX string CRC 
3; Partial CRC for STX 


BLK_CHECK: 
-ENABL 


COOoOQOooooooooooooooQooooooooooooooooooe 


DODOOOOOOOOOVOOOOOODOOOOODOOOVOOOOOGODOOOVOOOOOOOO 


ee em em em em a a ed at ed ed 8 = 3 2 SD 2 2) 2 2 — 


1 
1 
: Ls 
ogre gf BB 1 PUSHR #*m<R3,R4,R5,R6,R7,R9,R10> 
9 1 00 1 MOVL 9 : Save the input pointer 
2c B3 «=O «(091 MOVL  @IRPSL_SVAPTE(R3),R7 : Get the output pointer 
56 O0A4 C 00 1 MOVE = UCBSL Rw_ITBPTR(RS).R6 : Get the ITB table base 
56 1 C ADOL #724 RG : Point to tne first ITB 
7 «6510CS0—«CE*1 ADDL3 RO, R1, (SP) : Point to end of block 
7E 4 CLRL = §P : No partial CRC 
5A 66 00 MOVL (R6) ,R10 3 Are there any internal CRC 
a 12 BNEQ $ ; BR if there are 
2c H 9 is MOVAW =(R9),@IRPSL_SVAPTE(R3) ; Fake the system buffer pointer 
89 A SUBWS3 = #3, RO, (RO) + 3; Set count for user 
A DO MOVL RO.R10 : Set up the count 
69 SA 6E€ OQOOO0CAC‘EF 5$ CRC POLY _TABLE,(SP),R10,(R9) ; DO the CRC on the whole block 
1 4 BNEQ BAD_CRC ; BR if not zero 
FD a3 FFEFF ] y MOVW #-1,-3(R3) : Store the sentenal 
50 53 ¢ 94 SUBL3 #1,R3,RO ; Point to end of block 
1 095 BRW G00D_ fExT > Send a ACk 
) 5 10$: MOVL =(R6,R10 : Get count to end of CRC 
1 8 BNEQ 208 3; Not end so branch 
Cc A SUBL R9,4(SP) ,R10 3; Get the remaining count 
A é SuBWS «6. #3.R10, (R7) + : Set the Last count 
2 963 move —- R16, (R9) , (RT) : Move the Last record 
DO 096 MOVL R7,R9 $ Fake the last CRC 
p} 11 Q96A BRB 5$ 3; Do the Last CRC 
9 2 C § gps: SUBL R9,R10 3; Get count to next ITB CRC 
69 SA 6€ CAC*EF Ff $: CRC POLY_TABLE,(SP),R10,(R9) ; Do she partial CRC 
A 978 4 BNEQ BAD ERC ; BR if bad CRC 
87 SA 3U0C«iaA 97A 5 SuUBW3 «= #3, R10, (R7)+ 3; store the count in the buffer 
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7 A 2 97E 1 MOVC R10, (R9), (R7) 3; And compact the data 
SF 83 Ba: 9 ; 1 ; SUBL ahs R7 : Point t next count 
SA 04 A i 986 1 : SUBL3 = R14 §P) R10 : get th the count remaining 
61 SA : 988 1 SKPC =—-s #EBCS YN, R10, (R1) ; e SYN 
98F 1 \9 BEQL BAD_CRC 3 an a bed CRC 
6E 00 oops F D 991 121 MOVL #OLE_STX_CRC, (SP) ; start the next CRC 
81 0210 8F 81 0998 1 1 CMPW 30s WEBCDLE! 2EBC$§Tx#256>, (R1 hee The DLE STX are in the CRC 
10 13 099D 121 BEQL 4 : "eh if here 
gf D4 O99F 1214 CLRL it 3; Set no partial CRC 
8? 9A1 1215 TSTwW -(R1) 3; Back 
61 § 1 O9A3 1 1 CMPB 1 ad mie F Dies the next record start with STX 
je 9A6 121 BNEQ 40$ ; Br if not 
MOVZWL #STX_CRC,(SP ; Get one ay artial crc 
oe 18T bg SAD 1519 ‘3 ll * taapetlaaet: ‘ sere 
3; Remove 
59 2} DO O9AF 1220 40S: MOVL R1,R9 3 Set the’ ~4 from pointer 
Al 11 0982 1 okie BRB 10$ : Get next record 
SE 08 CO 09B4 1 4 = ADDL P Pop the CRC and end 
06F8 BF BA 09B7 1224 POPR seach Rs, RS, Fo. R7,R9,R10> 
04 C8 O9BB 1225 BISL  #UCBSM’XWNAK,- ; Mark a NAK sent 
68 AS 9BD 1 $ UCBSW BevSTS< aS) 
98F 1 PROTLO pe Kent 
FB8D 3830 O9CS 1228 BS8W ; Set up and start the NAK 
9C8 1229 WF IKPCH sc ete _TMO, #4 
902 1230 IOF ORK : Create a fork process 
F98C OE ssé3531 pee ! 1 oom Texte SND_REC_REQ 3; Restart the receive buffer 
SE 08 cO 0908 1 : “= ADDL P Pop the CRC and end 
06F8 8F BA O9DE 1234 POPR + Sack R4,R5,R6,R7,R9, rib> 
50 2c Bs C2 O9E2 1235 SUBL : RPSL_SVAPTE(RS),RO  ; Get buffer size 
40 a3 30 81 3e6 6 cHPu IRPSW VABCNT CRSS : Is the users buffer large enough 
; Br s 
50 0000'8F $5 9EC 1238 MOVZWL #SS$_TOOMUCHDATA,RO : Get a error message for the user 
DD4 1 O9F1 1239 BRW 8 3; And return the buffer with a fatal err 
32 a3.—s« 50 20 9F4 1240 55$: MOVW RO, TRPSW_BCNT(R3) : Set the transfer size for the iocomp. 
01 £3 O9F8 1241 BBCS #UCB$V_XO AK1,- : Toggel the ACK switch 
04 68 AS O9FA 1 4g UCBSH Devsts (AS) 6 
68 AS 02 CA O9FD 124 BICL  #UCBSA_XW_AK1 ichsue Devstsis) :... 
04 CA QAO1 1244 608: BICL #UCBSM -hu" NAK 3; Reset NAK sent Last switch 
68 AS A 3 1245 UCBSu BEVSTS(RS) 
03 64 A5 O38 €E1 A 1 28 BBC #uces?_ ENNeEL UCBSW_ STS(R5) 70$ ; If canceled the higher 
AOA 124 3 le velS will want to send an EOT 
AOA 1248 : Rather than this ACK 
FDA9 H a 1249 BRwW CANCEL_CUR 3; Return this packet cancled 
FB45 0 OAOD 1250 70$ SEND_RESP ; Set up the correct response 
A10 1251 WFIKPCH REC_GACK_TMO,#4 z And wait for it to be sent 
Ale ! § ene pen 1OF ORK 3; Create a fork process | 
51 3C a3 0 A 1254 = MOVL IRPSL_MEDIA+4(R3),R1 3; Get the dev. dep. status 
FD68 1 A | : 5 BRW COMP_GOOD_AB : Complete the request 
A271 3§ .DSABL LSB 
| 
| 
| 
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, ] 5 Po -SBTTL DUP_11 Receive Interrupt Processing | 
A f } $f 3X RINT = DUP=11 RECEIVE INTERRUPT PROCESSING 
Ae? 1 og i 3 THIS ROUTINE IS ENTERED VIA A JSB INSTRUCTION WHEN AN | | mma OCCURS ON A 
. f ! re ; DUP-11 LINE INTERFACE. THE STATE OF THE STACK ON ENTRY IS: 
Ae? 1 06 3 O(SP) = ADDRESS OF IDB ADDRESS. 
Ad? 1267 ; 4(SP) = SAVED R3. 
Ae? 1 os 3 9428} = SAVED R4. 
Ae? 1 8 3 12(SP) = SAVED RS. 
Ad? 1270; 1B tse} = INTER RUPT PC. 
: g} 3 20(SP) = INTERRUPT PSL. 
- g ! 78 3; Interrupt dispatching occurs according to received data. 
A27? 1275 ;:- 
Ae? 1276 XW_RINT:: 
Ad? 127 -ENABL LSB 
. F DO OA27 1278 MOVL a(SP)+,R3 ; Get the IDB pointer 
54 63)=«7D:«(OAZA 1279 MOVG  IDBS$L_CSR(R3),R4 Set CSR and UCB pointer 
64 AS 02 AA OA2D 1280 BICW  #UCBSA_INT UCBSW_STS(RS) : Clear expected bit 
50 02 A46 9A OA31 1 81 MOVZBL DUP_CSR_RDBF(R4)-RO ; Get the received byte 
OA35 1 é CASE UCBSB_X@_RISTA(R5),- ; Vector the interrupt 
A3S 128 TYPE=6,- : Byte dete te 
A35 1284 <RST_IOLE,- : Idle s 
OA35 1285 RST_BINARY,- 3 Binary, poceptton 
pA? 1 86 RST_FIRST,=- :; First character state 
QOA35 128 RST_NTTX,= 3; Nontransparent text 
OA35 1288 RST-STOP{,- : First byte of Last CRC 
0OA35 1289 RST_STOP,=- : Store last byte and complete request 
0A35 1290 RST_ITB,- ; Store internal CRC 
0A35 1291 RST-ITBI,- : Store last byte of internal CRC 
OA35 1 3 RST-XPRTEXT, = ; Transparent tex 
OA35 129 RST_DLE,=- ; transparent DLE processing 
page 1294 RST-XPRITB - 3; Transparent raternet CRC 
- 5 1295 RST-XPRITB1,- ; Second oyte of sacernal cRC 
A35 1296 RST_DIAG,- 3; Diagnostic function 
pA : ! 4 RST_LOOP_TEST.- : Slave loop diagnostic function 
tH 1299 
AS? 1 Bo 3 
Aae 1 1 : Second a of internal CRC state 
Aas 1 | st T_XPRITB 
OOAA CS 08 90 OQAS7 1304 nova #RSTSXPRIEXT,UCBSB_XW -RISTACRS) 37Go back to transparent text 
05 =i wae ' 5 BRB 100$ ; Go to common internal CRC code 
Ase : ; 3; Store the second internal CRC 
ase 1 gi RsT_1181: 
OOAA CS 03 90 “i } i$ MOVB #RSTSNTTX,UCBSB_XW_RISTA(RS) ; Go back to text state 
ry3 ! 12; z Internal CRC processing 
7885 50 90 ne 1314 ioos: MOVB RO,@UCBSL_SVA 4 a 3; Store the Last CRC byte 
78 AS) «6006 «(OAG? «(1315 INCL UCBSL_SVAPTE( : Step pointer 
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64 0100 8F 
OOAA C5) «(03 
50.10 
08 

OOAA CS =O 
4F 

50. OTF 
07 
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Receive Interrupt Processing 


72 RIDONE: 


DECW 
BLEQ 


BBS 


131 

131 

1 15 

1320 

1 

1398 

1324 

! 5 

18 

1 5 RsT_FIRST: 

1330 BIcW 

1331 MOVB 

1 ; CMPB 

1 BNEQ 

1334 MOVB 

3 BRB 

1 37 30$: CMPB 

1338 BNEQ 

1339 MOVB 

1340 BRB 

1341 35$:  CMPB 

1 4g BEQL 

134 CMPB 

1344 BEQL 

1345 MOVE 

i Pace. 
3 rs yte o 

48 i First byte of 

1350 Rst_stoP1: 

1351 MOVB 

ane 

1354 : End of buffer 

1355 

1 36 Rst_stop: 

135 MOVB 

1 38 INCL 

135 DECW 

1360 50$: MmOVB 

1361 BICW 

1 ¢ MOVL 

136 MOV 

1364 JSB 

1365 BRW 

1 66 

136 

1 $8 

133 

Hi 


L 
OVZBL 
0 


16-SEP=1 
“SEP=1 


feu. BCNT(RS) 
UCBSB_XW BTOGNT IRS). RO 
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And reduce count 
The end of the buffer!! 
Get the index 


Page 


ad “SVAPTE(RS),= Save the slater 
CBSC Xu. ITBPTR(RS) CROJ 4 
H 3 oe less CRC 
50$ 3; More than 8 ?? 
B UCBSB_XW_ITBCNT(R5) ; Save the new count 
25$ ; get out 


First character state 


#OUP_CSR_M_SSY,( F Reset strip sync 
#RSTSNTTR Ocasé_ ng -RISTACRS) Assume non-transparent text 
43 DLE RO : Is it Be ew aaa 
no 
AASTSXPRTEXT, -UCBSB_XW _RISTACRSS 3s ; Set state to transparent text 


; Clean up stack and exit 
#EBCITB,RO 3; Will an internal CRC be next 


; BR no 
#RSTSITB,UCBSB_XW_RISTA(RS) ; Set state to store CRC 
R 3; Complete interrupt 
#EBCSYN,RO ; 


: te 
; If it is BR and ignore it 


#EBCENQ,RO Is it a forward abort 

3; Com ple te the block now if it is 
the iad -UCBSB_XW_RISTA(RS) ; Set state to get last CRC 
RID $ Complete the interrupt 


Last CRC state 


#RSTSSTOP,UCBSB_XW_RISTA(RS) ; Set state for stop after next 
RIDONE 3; Complete the interrupt 


state 
RO, @UCBSL pitt TE(RS) 3 prere it in the buffer 
UCBSL_SVAPTE (RS) 3 p the buffer pointer 
UCBSW-BCNT(RS) : Anetu ude the byte in the count 
#RSTSIDLE ,UCBSB_XW_RISTA Set state to idle 
#0UP_CSR_M RIE ‘BU UP=CSR _REN, ira); Turn interrupts off 
Ucase FR3C(R5)R ; Rest tore the fork 
) OCBSW_XW_LSTCSR(RS) ; Save the ending CSR 
aycati FPCTRSY :'Call back in Line to complete request 
3; Clean — oe exit the interrupt 


: Non-transparent text state 
RST_NTTX: 


RO, CCHRMASK, 30$ ; BR if a control char. 


XW! 
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78 B55 90 OAEB 1373 MOVB RO,@UCBSL_SVAPTE(RS) :; Store it in the buffer | 
78 AS) «=D6 OOAEF «(1374 INCL UCBSL_SVAPTE(RS) i Step the buffer pointer 
7E A 8 . } o 268 DECW UCBSW_BCNT(R5) :; Include the byte in the count 
D3. s«15 “' } 7 ast ee 50$ ; BR if the buffer is full 
23 8E 7D OAF7 1 8 ae MOVa (SP)+,R0 ; Restore Rot 
8E 7D OAFA 1380 MOVa (SP)+,R2 3; Restore R2- 
= & ff AFD 1381 mMOVva (SP)+,R4 3 Restore R4-5 
0 ! § REI 3; Return from interrupt 
: } ! ¢ 3 Store the first internal CRC character 
801 1 6 RST_ITB: 
OOAA CS 07 os MOVB #RSTSITB1,UCBSB_XW_RISTA(RS) ; Set state to store second CRC 
—€3 11 0808 : 38 BRB RIDONE ; Complete the interrupt 
p88 ! a 3; Transparent text state- if DLE is found drop it and go to DLE state 
$808 1382 RST_XPRTEXT: 
50 10 91 0808 139 CMPB #EBCOLE ,RO : Is it a DLE 
DE 12 OBO0B 1394 BNEQ RI ;_If not continue 
OOAA CS 09 90 OBOD 1395 MOVB #RSTSDLE ,UCBSB_XW_RISTA(RS) 3; Set state to DLE 
ae | pete i 38 BRB RIDONE ; Complete the interrupt 
0B14 1398 ; Transparent character after a DLE 
0814 1399 
0814 1400 RST_DLE: 
50 1F 91 0814 1401 CMPB #EBCITB,RO : Is it an internal CRC 
OD 12 0B17 1008 BNEQ 4 ; Check sone more 
OOAA CS— 0A = 90s«0B19 140 MOVB $#RSTSXPRITB,UCBSB_XW_RISTA(RS) ; Set transparent ITB state 
78 AS «(07 «(OBIE «1404 428 DECL  UCBSL_SVAPTE(R5) ; Remove the DLE 
7E AS) =6©86 «(0821 «(1405 INCW UCBSW_BCNT(RS) 3 nes 
CS 611 «40824 «41406 BRB RIDON 3; Exit the interrupt 
ae be 6 1407 40$: CMPB 1 ila 3; Is it a SYN in text 
OD 12 9 1408 BNEQ 45$ ; BR if not 
OOAA C5 08 99 Be 1409 MOVB $#RSTSXPRTEXT,UCBSB_XW_RISTA(RS) ; Set state to text 
78 A D oe 1410 DECL UCBSL_SVAPTE(R5) ; Remove the DLE also 
7E AS Bb 1411 INCW YE Sse SCNT (RS) - ons 
ef 11 oS : et BRB 5$ 3; And exit the interrupt 
OC OOOO0C8C EF 0 €0 14135 45$: BBS RO,CCHRMASK ,47$ ;_If it is a cont. cha. strip the DLE 
OOAA CS 08 90 B40 1414 MOVB ERSTSKPRIEXT UCBSB_XW_RISTACRS) :Go back to transparent text 
6 CY 91 B45 1415 CMPB #EBCOLE,R 3; Is it a DLE in text 
AD 13 0848 1616 BEQL 25$ : If so dump it 
9F 11 OB4A 141 BRB RIDONE s get out 
OOAA CS 04 90 OB4C 1313 47$: MOVB #RSTSSTOP1 ,UCBSB_XW_RISTA( 5) ; Set state to stop after CRC 
cB. sé M'YW Bt 103? BRB 42$ : Complete the interrupt 
B53 1421 ; Transparent ITB state 
B53 14 ¢ : 
B53 1423 RST_XPRITB: 
OOAA CS 0B 90 OB53 1424 MOVB #RSTSXPRITB1,UCBSB_XW_RISTA(RS) ; Go to second byte of CRC 
91 «11 : 1425 BRB RIDONE ; Complete the interrupt 
BSA 14 6 RST_BINARY: 
64 0100 or AA OBSA 14 BICW #DUP_CSR_M_SSY,(R4) ; Reset strip sync 
FF89 = 31 o25 1° $ BRW RIDORE 
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SHOHO DDO ODO DOD DOD 
SNP AA AOA Oo 


Sea 
o9o8 NNN EOE 


Receive Interrupt Processing -SEP=-1984 
1430 ; : 
1? ; : Diagnostic interrupt service 
1433 Ast DIAG: 
1434 BICW #DUP_CSR_M_SSY, (RS) 3 
1435 MOVB RO g0cesc Rw_SPBF(RS) ; 
14 $ INCL  UCBSL_XW_SPBF(RS) : 
14 DECW Ucese: “Stave CRS) ; 
1° - BRW 
Veey ; Diagnostic slave loop function=- receive 
1446 Rst_Loop_test: 
144 CMPB #PAD : 
1444 BNEQ RST OS TNARY ; 
1445 BRW 508” : 
1446 -DSABL LSB 


DRIVER.SR REIX XWORIVER.MAR; 1 


Drop strip sync 

Store the sere reee byte 
Step the point 

Reduce the count 


until the first PAD 


Is it ad 
If not gine B it like binary 
If it is the message is done 


— | 


re i 
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: 1008 -SBTTL DUP=11 Transmit Interrupt Processing | 
1431 : XW_TINIT = DUP=11 TRANSMIT PROCESSING 
8 1288 : ; ms ROUTINE IS ENTERED VIA A JSB INSTRUCTION WHEN i INTERRUPT OCCURS ON A 
3 Ve2e 3 ; DUP=11 LINE INTERFACE. THE STATE OF THE STACK ON ENTRY IS: 
BBO 1456 : O(SP) = ADDRESS OF IDB ADDRESS. 
B 5 1439 3 atts = SAVED R3. 
0880 1028 $ O8(SP) = SAVED R4. 
0B80 1459 ; 12(SP) = SA im RS. 
4h 1460 ; 18% 38} = INTERRUPT PC. 
+4 1083 ; 20(SP) = INTERRUPT PSL. | 
0880 1288 : INTERRUPT DISPATCHING OCCURS BASED ON TRANSMIT STATE 
0B80 1464 s 
0B80 1465 :- | 
0B80 1466 KW_TINT: ‘ | 
} a DO O0B80 1467 MOVL s Ges the IDB pointer 
54 6 7D OB83 1468 MOVQ 1best *eSBcp And the UDP csr ond the UCB 
‘ 64 AS 02 AA OBB6 1469 BICW BSA_INT wate STS(RS)’ : Clear expected bit | 
OB8A 1470 CASE CBB, Rw_TISTAC(RS), ; And vector. the interrupt 
OB8A 1471 TYPE=6 
OB8A 1426 <IPRO {DLe.- ; No interrupt expected | 
OB8A 147 IPRO_CTS,- ; Wait for clear to send 
OBBA 1474 IPRO-SYN,- : synch state 
OB8A 1475 IPRO-TEXT,- : Text state 
OB8A 1476 IPRO-ENDPAD ,- ; Last pad sta 
OB8A 1477 IPRO_DIAG,- ; Diagnostic a CTS wait state) 
OB8A 1478 IPRO-DROPRTS,- : Drop RTS state 
OBB8A 1479 > 
OB9E 1480 
OB9E 1481 IPRO_CTS: 
64 2000 8F 683 0B9 1488 BIT #DUP_CSR_M_CTS, (R4) 
12 OBAS 148 BNEQ 
06 AS «CFF O€8F)0 «90 s«OBAS = 1484 MOVB #PAD,DUP_CSR_TXDBF(R4) ; send a pad and wait for CTS 
23. 11 ~OBAA 1485 BRB IDONE - : Go exit the interrupt 
OBAC 1486 10S: 
OBAC 1487 IPRO_ pene: 
00A9 CS) =602—Cés«90 rat 1o58 IPRO_SYN, MOV #TSTASSYN,UCBSB_XW_TISTA(RS) ; Set state to send synch | 
AS 46 AS 1 1490 MOV UCBSL a ett Sette: DUP_ af TXDBF(R4) ; send a synch 
14 00AO0 C5) «6 FS) «=—(OBB6 1491 SOBGTR ntat the XW_SYCN ; c SYN count 
OOA9 C5 83 90 OBBE 1436 MOVB siStASTERT. UCBSB_XW_ Oper atags z set state to text 
ee BCO (149 BRB ID0 3; Exit this interrupt 
BC2 1494 eENABL L 
BC2 1495 IPRO_TEXT: . 
7E AS 687 «(OBC 1638 DECW ycesu BCNT(RS5) 3; Reduce the byte count 
ig 19 OQOBCS 149 BLSS ; Change to trailing pad state 
7865 90 OBC 1698 MOVB @UCBSL_SVAPTE(RS),- ; Send the next byte 
98 AG BCA 149 DUP_CSR_TXDBF (R4) 
AS 06 ace 12 ’ ne se Fe CL. UCBSL_SVAPTE(RS) : Step the pointer to next byte | 
39 if » ace 1 ¢ IDONE : nove fsPhe. RO ; Restore saved regesters 
54 sm +f: 1 4 MOVQ (SP)+, *R 3S gee 
02 O08D8 1505 REI ; Return from the interrupt 


c 8 
XWORIVER - BSC DUP11 Device Driver 16-SEP-1984 7:24:39 VAX/VMS Macro v04-00 Page 38 
YO. 000 DUP-11 Transmit Interrupt Processing ~$Fb= 138 $8 :54 38 DRIVER. SR REIX XWORIVER.MAR; 1 . (4) 
D9 15 
O0OA9 C5) «(04S si«90s«OBDs«15 : 10$: MOVB #TSTASENDPAD UCBSB_XW_TISTACRS) : ae e srething pad state 
7E AS «02 )«©8O «(0BDE «15 8 MOVW #2,UCB$W_BCNT(R : Set the # of trail PADS to 2 
E 15 IPRO_ ENDPAD® 
7E AS 87 OBE 1510 DECW BSW_BCNT(R5) : bece a. count 
R? 14 ES 1511 BGTR $ Is the Last ont? 
ro? S 6 90 E 1 1% MOVB #TSTASDROPRTS ,UCBSB_Xw_ TISTACRS) ; het "Ores RTS state 
06 A F 8F 90 OBEC 1513 208:  MOVB  #PAD,DUP_CSR_TXDBF(R4) ; "Send the trailing pad 
DC 30611 «OBF1 «1514 BRB IDONE : Exit the interrupt 
F 131? -OSABL LSB 
F3 1316 IPRO_DROPRTS: 
OOAB C5 4 B60 F 151 (R4) ,UCBSW_XW_LSTCSR(R5S) 3; Save the Last CSR 
0050 8F AA OBF 1318 BICW #DUP_CSR_M_TIE!DUP_CSR_M_SND,- ; Turn off interrupt enable 
04 AS OBFC 151 puP_CsSR_TxtSR(R4) ~ 
03 44 a5 00 €0 pert 1520 BBS #xwSv_CRA_FDX,UCBSL weer tae bat 10$ ; Is this line HDX 
64 04 AA OQCO3 1521 BICW #0uP_TSR A_RTS (R4)~ request to send 
00a9 C5. —(00s«90s«éOC0Hs15 2 10$ MOVB #TSTRSIOCE ycese. XW TisTAGnss Set state to idle 
53 10 AS 00 OCOB 15 MOVL UCBSL_FR3(R5),R iGet the fork R3 
OC BS 16 OCOF 1524 JSB @UCBSC_FPC(RSS ; Pass control back to where 10 was strt 
BB 11 OC12 1525 BRB IDONE 3; Exit the interrupt 


ee — = 5 
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YOen O05 REGDUMP Dump the errors and device CSRs -SEP-1 1382 88 $f 33 DRIVER.SR REIX XWORIVER.MAR; 1 ° (4) 
C14 1527 .SBTTL REGDUMP Dump the errors and device CSRs | 
C14 «(1 5 i : Move the accumulated errors and CSR 0 into an error log buffer 
C14 1530 ; or a diagnostic buffer. 
C14 «1531 ; 
C14 1 gi 3 input 
C14 (1 ; ry: buffer pecener 
C14 12 4 : UCB pointer 
pele } 5; R4- CSR pointer 
war 12 : : output 
pele 15 g 3 arO is titted with: 
C14 (1539 ; words f 
0C14 1540 ; last” or tee thas 5 error 
0C14 1541 ; 
Bele 1266 3 hk Oe errors (see UCB definition) 
C14 154 : 
0C14 1544 ;:- 
0C14 1545 REGDUMP: MSG 
06 BB OC14 1546 PUSHR #*M<R1,R2> 
51 55  OQO0000AD 8F C1 0C16 1547 ADDL3 #UCBS$B. XW ERRORS, R5,R1 ; Get a pointer to the first error 
52 13 00 OCIE 1548 MOVL ono ERROR 3; Get the number of error fields MSG 
80 15 pO OC21 1549 MOVL <nO TERRORS#S>, (RO)+ ; Store sno re words 
80 81 9A O0C24 1550 MOVZBL (RIDE »(RO)+ re the aes ,orrer logged 
80 OOAB C5 3c.) 60C27)— «11551 MOVZWL UCBSW_ XW_LSTCSR(RS), (RO)> : g ** the MSG 
80 81 9A OCeC 133¢ 10$:  MOVZBL (R1)+7(RO)+ ; & a ody cael 
FA 52 FS OCF 155 SOBGTR R2 108 R if not done 
80 FFFFFFFF 8F DO OC 4 1554 MOVL #-1,(RO)+ : Put in sentinal 
06 BA OC 1555 POPR #*M<R1,R2> 
05 0C3B 1338 RSB _ 
oc3c 155 
ze : 1328 | -SBTTL ERR_RECORD Save an error in the UCB 
Oc3¢ 1560 : The error is recorded in the appropriate UCB field, if it 
ese 1561 ; is fatal the error logger is called. 
0c3C 1206 3 
Bese 156 : input 
OC3C 1564 ; R5- UCB 
C3C 1565 ; R4- Device CSR 
C3C 1566 : 4(SP)=- error : 
C3c 41567 ;: (SP)- return 
C3C 41568 ;: 
C3C 1292 3 3 output 
: : 1320 ; 3 The UCB is updated and the error is logged if fatal 
C3C 13/6 
C3¢ 1573 ERR_RECORD: 
p C3C 1574 MOVL RO ; Save a reg. 
50 08 AE ore er CSF 1575 ASHL ae 2 ; Get the error number 
OOAD C5 0 C45 1326 MOVB gaa cu’ $(R5) Saye the last error 
OOAE c56 (4A 157 INCB ucé B_XW “AAGSMORE ES ao | Step the error cell | 
1 C4F 1 8 BNEQ bont pass 0 
OOAE sto 97 0C51 157 DECB geese XW ofRRORS#1 (RS)CROS P 
‘9 C36 1580 5$ , BLBC ; is’ this a fatal error 
0 § CSA 1581 JSB GPERLSoeViCERR : Yes call Mn error logger | 
i) C60 1 § 10$ MOVL (SP)+,R : Restore R 
DO O0Ccé63 1 MOVL (SP)+, (SP) 3; Remove the error 
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| 
~SBTTL CANCEL 1/0 ON CHANNEL ! | 
| 
| 


—s 


sans ett 


o— 


+ 
KW_CANCELIO = CANCEL 1/0 ON CHANNEL 


: THIS ROUTINE IS CALLED WHEN THE LAST CHANNEL ASSIGNED TO A 

: THE DEVICE IS DEALLOCATED, AND WHEN THE CANCEL 1/0 ON CHANN 
> EXECUTED. 

: INPUTS: 

; R2 = NEGATIVE CHANNEL NUMBER 


on 


ADDRESS OF CURRENT 1/0 REQUEST PACKET. 
CURRENT PROCESS PCB ADDRESS. 
DEVICE UCB ADDRESS. 


; OUTPUTS: 
THE DEVICE INDEPENDENT CANCEL 1/0 ROUTINE IS CALLED. 


a RD Ad i eh tt a ht st 8 


DDDPEDP_DPEDPEDPE DPD PPPs So 


Ss oS 


XW_CANCELIO: 
JMP 


Q0000000'GF 17 G*1OCSCANCELIO 


ee Fl wa 


G 8 
i j 16-SEP-1984 224: A 
Teal tees on ~$eb=13 4 08:34:38 RIVER. &R 


-SBTTL DUP=11 Unit Initalization 
; XWLINIT = DUP=11 LINE INTERFACE UNIT INITIALIZATION 


; THIS ROUTINE IS CALLED AT SYSTEM STARTUP AND AFTER A POWER FAILURE. THE 
; ONLINE BIT IS SET IN THE DEVICE UCB. 


; INPUTS: 
; RS = ADDRESS OF DEVICE UCB. 
; OUTPUTS: 


THE ONLINE BIT 
IS FILLED INTO 
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64 A5S_ 1 Ag BISW #UCBSM_ONLINE,UCBSW_STS(R5) ; Mark unit on Line 


SSI NA AA AA AAA A AAA AAAAOA AO 


See eee rene oe Oe oe Oe a eat eae ear at a tae tat eat eat Sak Oa Oa a a a ee 
Saw oe NNO OMT OCT VTVTVTVTVCV°CVT°cC°c0"c0"0C00" 


mk ed a a te a ts a 8 5 a tt 


=O VOONAOUE WIN $9 OO NOU EWN O OONOUS Wt" 


50 GA d0 MOVL UCBSL_CRB(R5S),R 3; Get the CRB io igee 
50 C 40 dO MOVL CRBSL~INTD+VECSL IDB(RO),RO ; Get the IDB pointer 
04 AO 5 DO MOVL RS, 1IDBSL_OWNER(RO) : srore the UCB pointer 
09 64 a5 (01—so#E?T BBC #UCBSV_INT,UCBSW_STS(R5),10$ —; If interrupts not expected 
3 then do nothin 
04 64 A5 00 €0 6 BBS #UCBSV_TIM,UCBSW_STS(R5),10$ ; If The timeout expected 
8 3; bit is set - no problem 
64 AS 02 AA BICW #UCBSM_INT,UCBS$W_STS(R5) 3; If interrupts expected, 
0 6 ; 3; but timeoutnot requested 
0 6 : avoid powerfail recover 
0 6 3 crash condition 
05 0 640 10S: RSB 
0 64 
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1 -SBTTL Control character table 
44 CCHRMASK: 
° 9 9 sETX,ENQ 
: EOf, SYN, ETB 


NG 8 
«SBTTL CRC16 Polynomial Table 
POLY TABLE: 


SGOOGCGOCOCOOOO OOOO OOOOOCOOOOOOOOOOoO 
POAIAOOOOOOAMOOON OOOO AOMOOO 
@or>r>r> 
omc os aon 
kk kk ak ts a a 
PAAAAAAAAAAOAPA AAA AOAAAAAAOAAOAOAD 


WN | OOO NA UNE WIN O OD NAUE UT O ODNOUE WwW 
ee 
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WAI FS HN SMS ANnuno 


NS OOCONOOOU UN 
onNO-Oe—0oo°o- ww 


At tt Ht tt Ht 
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me ad ek ds ed = 4 
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UL lh lL ll el ll el ll ll ll nl) mer ” 
Soooooooooooo oo oOo 
] 
2S KE OE OE OE OK OK OE OE OE OE OK 
[2 4 ce =< 
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ABORT 
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TRO _XMT TXTBLK 
TSTASCTS 


XWSM"NODSR 
KWSH_P1PE_MARK 
XWSM~ TRABINTMO 
XWSM-XPR 


XWSV~- 1OMOD 
XW_CANCELIO 


XW" FUNCTABLE 
XWIINIT 
READ 


S 
ao 
* 
pease 
a on fo 
z 


uC 
UCBSL~SVAPTE 
UCBSL“xW_ITBPTR 


MPMUOOOOSCSOSOSOSOS FS OOOCSCOOOBOOO8' @ VF 


SSSSSssssssse 


XW"RINT 
XW"STARTIO 
XW-TINT 
XW "WRITE 


a 


XMT_START_PROZ 

XMT-TEXT_QALT 

XPRTXT 

XWSDDT 

XWSM_BADCHAIN 

XWSM~CHA_DSR 

XWSM~CONACK 
0 
0 


NOM SAOWMAOOOCOO—QNOWOOOCOCOOfo-OoF FD 


DONNG IDM NYG “DWI OSO FOO" BVO LF OOvwyS 


DDDDDBDAADD 
a 

Oooooo°o°oo 

WWAWANIANANNA 


So 
So 


UCB$W~DEVBUF S1Z 
UCBSM_DEVSTS 
UCBSW"STS 
UCBSW_XW LSTCSR 


VECSL-UNITINIT 
XMT_BINARY 


c¢ 
oO 
o 
bad 
=< 
3S 
a 
mz mm 
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XMT-START_PRO1 


XWORIVER 
Psect synopsis 


» 08 ~ 90000 
SABSS 90000¢ 
$$$105_PROLOGUE 000 G05 
$$$115"“DRIVER 


Phase Page faults 


Initialization 
—e processing 


s 1 
Syabol table sort 


cane table output 

Psect synopsis output 
Cross-reference output 
Assembler run totals 999 


The working set Limit was 2250 pages 


Macro Library name 
“$52 28UACE: SYS.OBJJLIB.MLB; 1 
“$255$DUA SYSLIBJSTARLET. MLB;2 
TOTALS (all Libraries) 
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PSECT name Allocation 
OSHR NOEXE NORD woat woves BYTE 
OSHR EXE RD WRT 


22Ee 
mn@@ 
roo 


WRT NOVEC LONG 


SeSwenoOanansoanaeseameaw oot 
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130702 bytes (256 pages) of virtual memory were used to buffer the me tga gps 
ieere were 110 pages of symbol table space allocated to hold 1930 
1734 source Lines were read in Pass 1, 


38 pages of virtual memory were used to define 


local symbols. 
object records in Pass 2. 


See BOE Be Re Rw Oe me ee en $ 


2032 GETS were required to define 31 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=LIS$:XWDRIVER/OBJ=OBJ$:XWDRIVER MSRC$:EBCDEF /UPDATE=(ENHS: EBCDEF ) *MSRC$: XWDRI VER/UPDATE=(ENHS: XWORIVER) +EXECMLS/LIB 


AL EQUIPMENT CORPORATION 
DENTIAL AND PROPRIETARY 


AH-BT13A-SE DIGIT 
VAX/VMS V4.0 CONFI 
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